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FORTRAN PROGRAM FOR CALCULATING VELOCITIES AND STREAMLINES 
ON THE HUB -SHROUD MID-CHANNEL FLOW SURFACE OF AN 
AXIAL- OR MIXED-FLOW TURBOMACHINE 
II - PROGRAMMER'S MANUAL 
by Theodore Katsanis and William D. McNally 
Lewis Research Center 

SUMMARY 

A FORTRAN-IV computer program, MERIDL, has been developed which obtains a 
subsonic or transonic, nonviscous flow solution on the hub-shroud mid -channel flow sur- 
face of a turbomachine. The flow must be essentially subsonic, but there may be locally 
supersonic flow. The solution is for two-dimensional, adiabatic shock -free flow. The 
blade row may be fixed or rotating and may be twisted and leaned . The flow may be 
axial or mixed, up to approximately 45^ from axial. Upstream and downstream flow 
conditions can vary from hub to shroud, and provision is made for an approximate cor- 
rection for loss of stagnation pressure. 

The basic analysis is based on the stream function and consists of the solution of the 
simultaneous, nonlinear, finite -difference equations of the stream function. This basic 
solution, however, is limited to strictly subsonic flow. When there is locally supersonic 
flow, a transonic solution must be obtained. The transonic solution is obtained by a 
combination of a finite -difference stream-function solution and a velocity -gradient solu- 
tion. The finite -difference solution at a reduced mass flow provides information which 
is used to obtain a velocity -gradient solution at the full mass flow. 

The program input consists of blade and flow channel geometry, upstream and down- 
stream flow conditions from hub to shroud, and mass flow. The output includes stream- 
line coordinates, flow angles, and velocities on the mid-channel flow surface; incidence 
and deviation aisles at the blade leadir^ and trailing edges; and approximations to the 
blade surface velocities. The output may also include input information for a blade -to- 
blade flow analysis program. 

The program is reported in two volumes with part I as the user’s manual and part II 
as the pr<^rammer’s manual. Part I contains all the information necessary to use the 
program as is. It explains the equations involved and the method of solution and gives a 
numerical example to illustrate the use of the program. This report, part II, contains 
all information necessary to understand the operation of the program. It explains the 
overall pregram procedure and gives a detailed description of all the subroutines. There 
is also a dictionary of variable names and a complete program listing. 
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INTRODUCTION 


The design of blades for compressors and turbines ideally requires analysis 
methods for unsteady, rotational, three-dimensional, viscous flow through a turboma- 
chine. Clearly, such solutions are impossible at the present time, even on the largest 
and fastest computers. The usual approach at present is to analyze only steady flows 
and to separate inviscid solutions from viscous solutions. Three-dimensional inviscid 
solutions are just beginning to be contemplated for coming generations of computers. 

So at present, inviscid analyses usually involve a combination of several two-dimensional 
solutions on intersecting families of stream surfaces to obtain what is called a quasi- 
three -dimensional solution. 

Since there are several choices of two-dimensional svucfaces to analyze and many 
ways of combining them, there are many approaches to obtaining a quasi-three- 
dimensional solution. Most two-dimensional solutions are either on a blade -to -blade 
surface of revolution (Wu's Sj surface, ref. 1) or on the meridional or mid-channel 
stream surface between two blades (Wu's S 2 svirface). However, when three- 
dimensional effects are most important, significant information can often be obtained 
from a solution on a passage cross-sectional surface (normal to the flow) . This is 
called a channel solution (see fig. 1). 



Figure 1. ^ Two-dimensional analysis surfaces in a turbomachine. 
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In this report a solution to the e(iuations of flow on the meridional S 2 surface is 
carried out. This solution surface is chosen when the txirbomachine under considera- 
tion has significant variation in flow properties in the hub-shroud direction. A solution 
on the meridional surface will show this variation. The solution can be obtained either 
by the quasi-orthogonal method, which solves the velocity -gradient equation from hub 
to shroud on the meridional flow plane (ref. 2), or by a finite-difference method, which 
solves a finite -differs nee equation for stream function on the same flow plane. The 
quasi -orth clonal method is efficient in many cases and can obtain solutions into the 
transonic regime. However, there is difficulty in obtaining a solution when aspect ratios 
kre above T . Difficulties are also encountered with curved passages and low hub-tip 
ratio blades. For such cases, the most promising method is the finite^difference solu- 
tion, but this solutionis limited to completely subsonic flows. 

Two finite -difference programs for flow on the mid -channel surface of a turboma- 
chine have been reported in the literature (refs. 3 and 4) . Since both are finite - 
difference methods, they are necessarily limited to subsonic flow cases. Marsh’s 
method (ref. 3), termed the matrix throughflow method, closely follows the development 
given by Wu in reference 1. However, the computer program was not included in refer- 
ence 3, nor is it available to the general user. Davis' program is provided in refer- 
ence 4 but is limited to certain families of compressor blades and flow surfaces. 

The method described in this report uses both the finite -difference and the quasi- 
orthogonal (velocity gradient) methods, combined in a way which takes maximum advan- 
tage of both. The finite -difference method is used to obtain a subsonic flow solution. 

The velocity -gradient method is then used, if necessary, to extend the range of solu- 
tions into the transonic regime. 

A computer program, MERIDL, has been written to perform these calculations. 

This pregram is written for axial- or mixed-flow turbomachines, both compressors and 
turbines, up to approximately 45® from axial. Upstream and downstream flow condi- 
tions can vary from hub to shroud. The solution is for compressible, shock -free flow, 
or incompressible flow. Provision is made for an approximate correction for loss of 
stagnation pressure through the blade row. The blade row may be either fixed or ro- 
tating and may be twisted and leaned. The blades can have high aspect ratio and arbi- 
trary thickness distribution. 

The solution obtained by this program also provides the information necessary for a 
more detailed blade shape analysis on blade -to -blade surfaces (fig. 1). A useful pro- 
gram for this purpose is TSONIC (ref. 5). Information needed to prepare all the input 
for TSONIC is calculated and printed by this pregram. 

The MERIDL program has been implemented on the NASA Lewis time-sharing 
IBM-TSS/360-67 computer. For the numerical example of this report, storage of varia- 
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bles required 60 000 words for a 21 x 41 grid of 861 points. Variable storage could be 
easily reduced by equivalencing of variables or by using a coarser mesh. Storage for 
the program code is 18 000 words. This storage could be reduced by overlay of code. 

Run times for the program range from 3 to 15 minutes on IBM 360-67 equipment, de- 
pending upon the mesh size used and the compressibility of the flow. 

The MERIDL program is reported in two volumes, with the user's manual presented 
as part I in reference 6 and the programmer's manual presented as part II in this report. 
Part I contains all the information necessary to use the program as is. It explains the 
method of solution and gives a numerical example to illustrate the use of the program. 

Part I includes the sections METHOD OF ANALYSIS, DESCRIPTION OF INPUT AND OUT- 
PUT , NUMERICAL EXAMPLE , and appendixes which derive the mathematical equations 
used. This report, part n, contains all information necessary to understand the oper- 
ation of the program. It explains the overall program procedure and gives a detailed 
description of all the subroutines. There is also a dictionary of variable names and a 
complete program listing. The appendixes explain numerical techniques used and de- 
rive certain numerical algorithms. So, part II includes the sections OVERALL PRO- 
GRAM PEOCEDTJRE . DETAILED PROGRAM PROCEDURE . MAIN DICTIONARY, 
PROGRAM LISTING , and appendixes which derive the numerical methods used. 


OVERALL PROGRAM PROCEDURE 


This main section gives an overall view of the program calculation procedure. The 
next main section should be consulted for the detailed program procedure . Reference 
will be made to the proper section or appendix for the equations and their derivation or 
for the numerical techniques used. 

The main prc^ram guides the overall flow of the prt^am. All the main subroutines 
are called by it. Figure 2 is a flow chart for the main program. 

The first step is to read and print out all the input data. This is done by the INPUT 
subroutine. Upstream and downstream flow conditions can be given either as a function 
of the streamline or as a function of radius. For program calculations, both the stream 
function and the radius are needed. INPUT estimates values of either stream function or 
radius, whichever was not given as input, based on the area distribution. These values 
are later adjusted with each iteration. The next step is to call INPLOT, which plots all 

the upstream and downstream input flow variables as well as the input blade sections 
from hub to tip. 

The next subroutine is MESHO, which calculates the coordinates of the orthogonal 
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Figure Z - Flow chart of main program. 
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mesh in the solution region. Details of the numerical technique are given in reference 7. 
After this PRECAL is called to calculate quantities which remain fixed throughout the 
calculations. These quantities include the s and t mesh coordinates, hub and tip wall 
curvatvires, and leading- and trailing -edge z- and r=coordinates at horizontal mesh 
lines. Subroutine PRECAL also calls THETOM, THIKOM, and LCSSSOM. Subroutine 
THETOM calculates d9/ds and 30/3t at the orthogonal mesh points. (All symbols are 
defined in appendix E.) These partials are used to calculate the blade flow ai^le |3 and 
the tangential velocity after the meridional velocity has been calculated. 
Subroutine THIKOM calculates the tangential blade thickness t^ at the orthogonal mesh 
points. Subroutine LOSSOM calculates the ratio of actual to ideal relative stagnation 
pressvme downstream of the blade and then distributes the loss linearly through the blade 
row from leading to trailing edge. The method of making loss corrections is discussed 
in appendix D of part I (ref. 6). Finally, PRECAL makes corrections in mass flow, 
wheel speed, and whirl for the reduced -mass -flow solution if the full-mass-flow solu- 
tion cannot be obtained directly (i.e. , when RED FAC < 1.0). 

Next MEPLOT is called to plot the meridional plane view of the blade and passage 
and to plot the orthogonal mesh. Then VBDRY is called to calculate the stream-function 
values along the upstream and downstream boundaries of die orthcgonal mesh . This is 
done by usii^ the velocity -gradient equation derived in appendix C of part I (ref. 6). 
Iteration is required to establish the correct temperature, density, and whirl to use in 
the velocity -gradient equation. Now INIT is called to initialize array variables as re- 
quired for the first iteration. Most variables are set either to zero or to some value 
which will avoid division by zero later on. 

At this point, everything is ready to solve the stream-function finite-difference 
equations. These equations are nonlinear. They are solved by an iterative procedure, 
with two levels of iteration. The inner iteration solves a linearized equation, and the 
outer iteration makes corrections to the linearized equation so that the solution conver- 
ges to the solution of the original nonlinear equation. There are three subroutines 
called to obtain the solution to the linearized equation: COEF, SOR, and NEWRHO. 

Then there are four subroutines to print and plot this information and prepare for the 
next outer iteration: OUTPUT, INDEV, SLPLOT, and SVPLOT. These seven sub- 
routines are repeated until convergence is obtained. 

Subroutine COEF calculates the coefficients of the finite -difference equations. 

These coefficients are derived in appendix A . Because of the sensitivity of the calcula- 
tions to the value of 3(rVg)/3r, this value is damped from iteration to iteration. Thus, 
only a portion of the predicted change in value is actually used. This portion is speci- 
fied by the input value of DNEW, 
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Subroutine SOR solves the finite -difference equations for the stream function u by 
I successive overrelaxation using an optimum overrelaxation factor (ORF) . This is the 
inner iteration. The optimum overrelaxation factor is calculated by subroutine SOR on 
the first iteration. Subroutine NEWRHO calculates velocity components at each mesh 
point by differentiating the stream function numerically along the orthogonal mesh lines. 
These values are used to calculate new densities at each mesh point. When whirl is not 
given as input, NEWRHO also makes reinitialization calls to readjust the estimated val- 
' ues of stream function to go with the input temperature, density, and tangential velocity. 
See appendix B. Subroutine NEWRHO also calculates values of ^ and ^ (eqs. (Al) to 
(A3)) at the mesh points to be used in COEF on the next iteration. And NEWRHO checks 
the relative change in velocity from the previous iteration at each mesh point. The max- 
imum relative change in velocity is checked to see if the solution is converged . 

Now that a solution (converged or not) has been obtained, OUTPUT is called. • Sub- 
routine OUTPUT first calculates other velocity components and flow angles at all mesh 
points. Then OUTPUT calculates streamline curvature and critical velocity ratio at 
each mesh point. Subroutine BLDVEL is called to calculate the blade surface veloci- 
ties, as explained in appendix G of part I (ref. 6). Also BLiDVEL calculates the average 
blade -to-blade density to be used in NEWRHO in the next ieration. And BLDVEL calcu- 
lates F^ at each point by using equation (A 4) . The radial vector is used by COEF 
in calculating the coefficients of the finite -difference equations . After returning from 
BLDVEL, OUTPUT will print out data at the orthogonal mesh points, if desired. Then, 
if output is desired along streamlines, the necessary interpolation will be done and data 
will be printed for all streamlines. Similarly, interpolation will be done and data 
printed for hub-tip station lines. 

After OUTPUT, INDEV is called. Sixbroutine INDEV calculates a correction to 
I 00/3s for a short distance into the blade to match the mean sxmface within the blade to 
* the free -stream flow angles, both upstreaih and downstream. The method for doii^ this 
is described in appendix F of part I (ref. 6) . Subroutine INDEV also calculates and 
prints out incidence and deviation angles if this is requested. If desired, SLPLOT will 
plot the streamlines and SVPLOT will plot the mean and blade surface velocities. 

At this point, the main program will start a new iteration by going back to COEF if 
the solution has not converged. If the solution has converged, there are two possibilities. 
If REDFAC is 1 , the final solution has been obtained and the program is through. If 
there are data for another case, the program will start this case; otherwise the pro- 
gram is stopped. If REDFAC is less than 1, the final approximate full-mass-flow so- 
lution will be calculated by TVELCY. First, the mass flow, rotational speed, and inlet 
and output whirl are restored to their full values. This requires reinitialization calls 
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of LAMDAF and RVTHTA for inlet and outlet whirl. Then TVELCY calculates 
9W /dm and 9W^/3m for use in the velocity -gradient equation. These quantities are 

m p 

first calculated from the reduced -mass -flow solution and then are adjusted by dividii^ 
by RED FAC. Now the velocity -gradient equation (derived in appendix C of part I 
(ref. 6)) is solved along each vertical mesh line. Iteration is required to establish the 
correct temperature ^ density, and whirl to use in the velocity gradient equation. When 
TVELCY is through, TOUTPT is called. Subroutine TOUTPT is an alternate entry point 
for OUTPUT. The only difference is that the flow angles are considered to be known, 
and the velocity components are calculated from the velocity magnitude and the known 
flow angles. Then the same sequence of INDEV, SLPLOT, and SVPLOT is called as 
for the finite -difference solution. Normally, only the smaller (subsonic) of two possible 
solutions is obtained by TVELCY (part I, appendix C); but if desired, both the larger 
(’’supersonic”) and smaller solutions can be obtained. If both solutions are desired, 
TVELCY, TOUTPT, INDEV, SLPLOT, and SVPLOT are called again. This completes 
the program. If there are data for another case, the program will start on this case: 
otherwise the program is stopped. 


DETAILED PROGRAM PROCEDURE 


This main section gives the detailed program procedure for all the subroutines. 

The previous main section should be consulted for an overall view of the program calcu- 
lation procedure . 

Most of the subroutines in MERIDL use the same set of variables. These variables 
are all defined in the MAIN DICTIONARY. All subroutines are described prior to the 
main dictionary. First, the main subroutines and other subroutines which use the main 
dictionary are described, and then the remaining subroutines with special dictionaries 
are described. 

The callii^ relation of all subroutines is shown in figure 3. Note that figure 3 is 
not a flow chart. A tabulation of all subroutines called and all COMMON blocks for each 
subroutine is given in table I . 

The first subsections presented here describe the general aspects of the programs, 
including storage requirements, conventions used, and description of labeled COMMON 
blocks. They are followed by a detailed description of the subroutines. 
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TABLE I. - SUBROUTINE CALLS AND COMMON BLOCKS 


Subroutine name COMMON blocks Called auhroutines Calling subroutines I 
or entry point {a) 


Subroutine name COMMON blocks Called subroutines 
or entry point (a) 


/-V 

/TNPUTT/ 


INPUT 

INPLOT 

MESKO I 

PRECAL 

MEPLOT 

VBDRY 

INIT 

COEF 

son 

NBWRHO 

OUTPUT 

INDEV 

SLPLOT 

SVPLOT 

TVELCY 

TOUTPT (OUTPUT) 


None - main 
program 


/INPUTT/ 

/CALCON/ 

/PLTCOM/ 

/TNPUTT/ 

/CALCON/ 

/PLTCOM/ 

/— / 

/INPUTT/ 

/CALCON/ 

/VAHCOM/ 


PTBDRY 
Microfilm plot 
subroutines 


TIPF 

RHOlPF 

LAMDAF 

TOPF 

RHOOPF 

RVTHTA 

CONTIN 


' Calling subroutines 


MEPLOT 

SLPLOT 


/-V 

/INPUTT/ 

/CALCON/ 

/INTITL/ 


VBDRY 

TVELCY 


ANPUTT/ RHCXPF 
/CALCON/ 

/VARCOM/ 
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TABLE I. - Concltided- SUBROUTINE CALLS AND COMMON BLOCKS 


\ 


SubrmitlTve name 
or entry ^oint 

COMMON blocks 
(a) 

Called subroutines 

Calling subroutines 

Sidiroutlne name 
or entry point 

COMMON blocks 
(a) 

Called Bubroulines 

Calling subroutines 

BLDVBL 

/-V 
/INPUTT/ 
/CALCON/ 
/VARCOM/ . 

SLOPES 

LAMDAF 

TIPF 

RHOIPF 

OUTPUT 

TOUTPT 

RHOOPF 
(see entry 
RHONIT) 

ANPUTT/ 

/CALCON 

None 

VBDRY 

TVELCY 


BHONIT 
(entry point 
for BHOOPF) 

/INPUTT/ 

/CALCON/ 

SPLINE 

TOPF 

PRECAL 

NEWRHO 

ILETE 

/mPUTT/ 

/CALCON 

SPLINT 

SPLBNT (SPLINT) 

OUTPUT 

TOUTPT 

INDEV 

/— / 

ANPUTT/ 

/CALCON/ 

/VARCOM/ 

/INDCOM/ 

LININT 

MERIDL 

RVTHTA 
(see entry 
RVTNIT) 

/— / 
/INPUTT/ 
/CALCON/ 
/VARCOM/ 

None 

VBDRY 

NEWRHO 

OUTPUT 

TOUTPT 

TVELCY 

TOPF 

SLPLOT 

/— / 

ANPUTT/ 

/3LCOM/ 

/PLTCOM/ 

Microfilm plot 
subroutines 
PTBDRY 

MERIDL 

RVTNIT 
(entry point 
for RVTHTA) 

/-V 

/INPUTT/ 

/CALCON/ 

/VARCOM/ 

LININT 

SPUNT 

SPUNF 

PRECAL 

NEWRHO 

TVELCY 

SVTLOT 

/— / 

Anputt/ 

/SLCOM/ ' 

Microfilm plot 
subroutines 

MCRIDL 

INRSCT 

/— / 

SPLINT 

PRECAL 

TSONIN 


ROOT 

h-l 

CROSCD 

MESHO 

TVELCY V 

/— / 

ANPUTT/ 

/CALCON/ 

/VARCOM/ 

LAMNIT (LAMDAF) 

BVTNIT (RVTHTA) 

SLOPES 

LAMDAF 

RVTHTA 

TIPF 

TOPF 

RHOIPF 

RHOOPF 

CONTIN 


MERlbL 

LININT 

None 

None 

THETOM 

TKIKOM 

OUTPUT 

TOUTPUT 

TSONIN 

INDEV 

LAMNIT 

RVTNIT 


SPLINE 

/— / 

1 

None 

i 

[NPLOT 

MESHO 

PRECAL 

THETOM 

THIKOM 

NEWRHO 

TSONIN 

TtPNlT 

RHINIT 

LAMNIT 

RHONIT 

RVTNIT 

,TIPF 
<sce entry 
TIPNIT) 

ANPUTT/ 

/CALCON/ 

None 

1 

. LOSSOM 
VBDRY 
NEWRHO 
OUTPUT 
TOUTPT 
TSONIN 
BLDVEL 
TVELCY 
TOPF 

TIPNIT 
(entry point 
for TIPF> 

ANPUTT/ 
/CALCON/ - 

SPLINE 

PRECAL 

NEWRHO 

SPLINT 
(see entry 
SPLENT) 

/--/ 

None 

INPUT 

INPLOT 

MESHO 

PRECAL 

THETOM 

LOSSOM 

PTBDRY 

OUTPUT 

TOUTPUT 

TSONIN 

ILETE 

LAMNIT 

RVTNIT 

INRSCT 

RHOIPF 
(see entry 
BHINIT) 

Anputt/ 

/CALCON/ 

None 

LOSSOM 

VBDRY 

INIT 

NEWRHO 

TSONIN 

BLDVEL 

TVELCY 

RHINIT 
(entry point 
for RHOIPFl 

ANPUTT/ 

/CALCON/ 

SPLINE 

PRECAL 

NEWRHO 


LAMDAF 
(sec entry 
LAMNITI 

/-"/ 

/TNPUTT/ 

/CALCON/ 

/VARCOM/ 

None 

LOSSOM 

VBDRY 

NEWRHO 

OUTPUT 

TOUTPT 

BLDVEL 

TVELCY 

TOPF 


SPLENT 
(entry point 
for SPLINT) 

/.../ 

None 

ILETE 

SLOPES 

None 

None 

NEWRHO 

OUTPUT 

TOUTPUT 

BLDVEL 

TVELCY 

LAMNIT 
(entry point 
for LAMDAF) ■ 

■—rzTq-. 

/INPUTT/ 

/CALCON/ 

/VARCOM/ 

LININT 

SPLINT 

SPLINE 

PRECAL 

NEWRHO 

TVELCY 


MlcrofLlnn plot 

None 

Not applicable 

INPLOT 
MEPLOT 
5LPLOT 
S VP LOT 

TOPf 

INPUTT 

CALCON 

TIPF 

LAMDAF 

RVTHTA 

LOSSOM 

VBDRY 

TVELCY 

subroutines 


^ ' deJiotes nn uniiibcled COMMON block. 


STORAGE REQUIREMENTS 


The MERIDL program has been implemented on the NASA Lewis time-sharing 
IBM-TSS/360-67 computer. Storage for the program code is approximately 18 000 
words. For the numerical example of part I (ref. 6), storage of variables required ap- 
proximately 60 000 words for a 21 x 41 grid of 861 points. As dimensioned lor a 
100 X 101 grid, storage of variables would require about 680 000 words. The user can 
reduce the storage requirements for variables, as desired, by changing the dimensions. 
The main dictionary indicates how each variable should be dimensioned to reduce the 
storage required. This is indicated by reference to certain input variables, such as 
MM, MHT, NHUB, NTIP, NBLPL, NPPP, and so forth. The variables with the most 
significant effect on storage requirements are MM and MHT. 

As an example, consider the two-dimensional array ALPHA. This variable is in the 
/VARCOM/ COMMON block and is dimensioned ALPHA (100, 101) in the program listing. 
In the main dictionary, it is listed as ALPHA (MM, MHTPl). Suppose that the maximum 
desired value for MM is 60 and that for MHT it is 40. Since MHTPl is MHT + 1, the 
maximum value for MHTPl would be 41 . Then ALPHA should be dimensioned ALPHA 
(60,41). 

Similarly, all other dimensioned variables should have their dimension changed as 
required. Most dimensioned variables are in COMMON blocks, but there are a few 
which are dimensioned locally only. In addition, the calls to LININT must be changed 
to reflect any changes in the dimensions of the first two LININT arguments. 


CONVENTIONS USED IN PROGRAM 

For convenience, a number of conventions are used in naming variables and assign- 
ing subscripts. 

In addition to the basic orthogonal mesh, there are four special mesh schemes used, 
as illustrated in figure 4. For each mesh, different conventions are used to indicate 
mesh position. The subscripts I and J are used to denote orthogonal mesh position. The 
I is used to denote the vertical mesh number, and the J is used to denote the horizontal 
mesh line number. The subscripts IS and JS are used in a similar manner to denote 
streamline mesh points, and IL and JL the station-line mesh points. Likewise, IN and 
JN denote points on the input blade sections, and KN and ON denote points on the alter - 
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nate blade mesh located at 10-percent -chord intervals in the THETOM subroutine. Note 
that I and IS take on the same values, as do JS and JL. 

In variable names, I or IN indicates the inlet (upstream of blade) and O or OUT 
indicates the outlet. Variables ending with OM are generally variables defined on the 
orthogonal mesh. 

Velocity components on the orthogonal mesh usually have SUB in the name, such as 
WSUBZ for W^. Velocity components along streamlines end in SL (WZSL), while 
velocity components on station lines end in ST (WZST). The letters H or HUB in a var- 
iable name indicate the hub, and T or TIP the tip, LE is used for leading edge and TE 
for trailing edge. The letters TH indicate a variable in the 0 -direction, SURF a varia- 
ble on a blade surface, and BL a variable in the blade region. In a variable name, 

TEM indicates a temporary variable; P is used to indicate a prime superscript, and PP 
double prime; D is used for derivative. Usually, several conventions are combined in 
each variable. For example, TIP is used for Ti, TPPTIP for T’*/T!, and DPDR is 
used for dp/dr . 

All subroutines used for plotting have PLOT in the name. Variables used for plot- 
ting have PLT in the name. 


LABELED COMMON BLOCKS 

Most variables which are used in more than one subroutine are placed in labeled 
COMMON blocks. A brief description of each labeled block is given. The same varia- 
ble names are used in different subroutines for every variable in a COMMON block. 

The labeled COMMON blocks are as follows: 

/INPUTT/ is used for all input ctxiantities. 

/CALCON/ is used for calculated constants which are initially calculated and 
are not changed later. 

/VARCOM/ is used for all orthogonal mesh point arrays which are changed in 
each iteration. 

/SLCOM/ is used for output data along streamlines. 

/STACOM/ is used for output data along station lines. 

/ENDCOM/ is used for quantities calculated by THETOM to be used by INDEV. 
/PLTCOM/ is used to plot data for hub, shroud, and blade leading and trailing 
edges. 

/CROSCM/ is used to store quantities required by CROSCD. 

/INTITL/ is used to store the input title for use by INPLOT. 

Table I shows which COMMON blocks are needed in each subroutine. 
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MAIN PROGRAM 


! The program is segmented into several main subroutines called by the main pro- 
gram, as indicated in figure 3. The subroutines are called in sequence, except for the 
uter iteration and a switch to obtain a supersonic final solution. The outer iteration is 
. loop consisting of calls to COEF, SOR, NEWRHO, OUTPUT, INDEV, SLPLOT, and 
VPLOT . This calling sequence and the outer iteration loop are shown more clearly in 
he flow chart for the main program, given in figure 2. Flow charts for some of the 
lubroutines are also given with the subroutine descriptions. 


SUBROUTINES 
Subroutine INPUT 

Subroutine INPUT reads and prints all input data cards and initializes some varia- 
)les for use later in the program. 

All input cards are first read and printed on the output listing in the same form and 
rder in which they are given. All array bounds are then checked to see if they are 
ithin limits, and some miscellaneous constants are initialized. Finally, estimates are 
nade of various required upstream and downstream flow conditions which were not given 
s input because other input options were used. 


Subroutine INPLOT 

Subroutine INPLOT makes microfilm plots of a portion of the given input data. By 
becking these plots, the user can see if his input data have been given correctly and 
raoothly. It is important that the plotted data be smooth, since spline curve fits of 
lese data are used extensively by the program. 

Two main sections of input are plotted: the upstream and downstream flow condi- 
Lons, and the input blade sections from hub to shroud. A separate plot is made of each 
f the three given distributions of upstream flow variables and two distributions of down- 
tream flow variables from hub to shroud. On each plot, one data point is plotted at 
very 1 percent of stream function or radius from hub to shroud. The NIN and NOUT 
nput points are also marked. Each input blade section is then plotted, using only the in- 
lut points for plotting and marking. After each individual blade section is plotted, a mul- 
pie plot is made of all sections together. Examples of all the plots are given in figures 
■(a) to (g) of part 1 (ref. 6) . 
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Subroutine INPLOT and the other plot routines, ME PLOT, SLPLOT, and S VP LOT, 
all rely heavily on the NASA Lewis in=house microfilm plotting package described in ref= 
erence 8. These four routines as well as PTBDRY, which is called by MEPLOT and 
SLPLOT, are self-contained and can be easily removed from MERIDL without disturbing 
the remainder of the calculations. 


Subroutine MESHO 

Subroutine MESHO calculates the coordinates of an orthogonal mesh covering the so- 
lution region from upstream to downstream of the blade row and from hub to shroud. 
Subroutine MESHO makes use of fovir other subroutines =• ROOT, CROSCD, SPLINE, 
and SPLINT. A flow chart for MESHO is given in figure 5. The method used for gener- 
ating the mesh is explained thoroughly in reference 7. 

Subroutine MESHO begins with input geometry describing the hub and shroud of the 
flow passage and the numbers of mesh points desired in the horizontal and vertical direc- 
tions. First, MESHO calculates the horizontal, or streamwise, orthogonals. It does 
this by extending lines vertically from each of the input points on the hub to the shroud. 
Each of these lines is then divided into equal increments, the number depending upon the 
number of streamwise orthc^onals. Streamwise spline curves are fit through the re- 
sulting points to give the horizontal orthogonals shown in figure 6 . 

Vertical orthogonal lines are then constructed one at a time, moving from left to 
right between each pair of adjacent horizontal orthogonals, proceeding from hub to 
shroud, as shown in figure 7. The procedure for calcixlating these lines, shown in fig- 
ure 8, is analogous to a technique for solving ordinary differential eqiiations known as 
the improved Euler method or Heun’s method (ref. 9). Beginning at a known orthc^onal 
mesh point on the lower orthogonal, a normal is constructed (line (T) in fig. 8) to the 
upper orthogonal. Then the intersection coordinates of this line with the upper orthog- 
onal and the slope of the upper orthogonal at the intersection are calciilated. ROOT and 
CROSCD are used in this process. Line in figure 8 is then constructed in such a 
way that it is perpendiciilar to the tangent to the upper orthogonal at the intersection 
point and passes throi^h the original starting point on the lower orthc^onal. The coor- 
dinates of the intersections of both lines (T) and are now known on the upper orthog- 
onal. The desired new orthogonal mesh point is the average of these two sets of coor- 
dinates. 

This process of constructing vertical orthogonal links is continued until the shroud 
is reached by all vertical orthogonals. This completes the generation of the orthogonal 
mesh. 

Notice in MESHO that the locations of thd upstream and downstream boundaries of 
the orthogonal mesh at the hub are fixed by the inputs ZOMIN and ZOMOUT (fig, 7). The 
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Figure % - Flowchart for WE5HO. 


17 



















Figure 8. - Calculation procedure lor a "vertical" orthogonal link. 


locations of these boundaries at the tip, ho^vever, cannot be given ahead of time and are 
totally dependent upon the orthogonal mesh generation procedure. 

Axial distance between vertical orthogonal origins at the hub is determined by the 
number of mesh lines requested in the following three regions; MBI mesh lines up- 
stream of the blade from ZOMIN to ZOMBI; MBO - MBI mesh lines from ZOMBI to 
ZOMBO; and MM - MBO mesh lines downstream of the blade from ZOMBO to ZOMOUT 
(fig. 7) . The number of horizontal orthogonals is MHT + 1, which is the same in all 
three regions. 

Subroutine CROSCD 

The ROOT subroutine (p- 52) requires the calling of a special function or Subrou- 
tine. In MERIDL, that routine is CROSCD. It is called by ROOT to calculate for a given 
z -coordinate the difference in r -coordinates of line (D and the upper horizontal orthog- 
onal in %\ire 8. (ROOT finds the z-coordinate vrtiere this difference shrinks to zero, 
that is, the intersection of the straight line (1) and the horizontal orthogonal curve.) 

The input argument for CROSCD is 

Z value of z-coordinate in ROOT 

The following two values are given as output: 

RMR difference in r -coordinates of straight line and curve 
SLl slope of horizontal orthogonal at z 

CROSCD uses the equations of a cubic spline curve to interpolate and calculate r as 


19 



a function of z on the horizontal orthogonal . The spline curve information is trans- 
mitted to CROSCD from MESHO in the /C?ROSCM/ COMMON . 

Subroutine PRECAL 

Subroutine PRECAL calculates many of the fixed constants which will be needed 
by the subroutines in the outer iterative loop of MERIDL. Figure 9 gives a flow chart 
for PRECAL. 

First, PRECAL initializes the subroutines for calculating upstream and downstream 
flow conditions. To do this it calls LAMDAF, RVTHTA, TIPF, RHOIPF, and RHOOPF, 
entering at the special entry points of these routines used for initialization. 

The array of blade -to -blade spacing B (the BTH array) is then initialized to the 
blade pitch (in radians) at every point on the solution mesh. This array is modified in 
the blade region later in PRECAL when THIKOM and LOSSOM are called. 

In the cases where output streamline values (FLFR array) were not read in (NSL = 0), 
PRECAL assigns eleven (11) values to FLFR from 0 to 1.0, in increments of 0. 1 . Also, 
if the given endpoints of FLFR do not equal 0 and 1.0, PRECAL adds these values as end- 
points. 

Then, PRECAL uses the z- and r-coordinates of the orthogonal mesh (ZOM and 
ROM), calculated in MESHO, to calculate the s and t arrays (SOM and TOM) on the 
orthogonal mesh. Adjacent points are linked with straight line segments in this calcula- 
tion of s and t, but the correction between arc length and chord ler^h is not significant 
for adjacent points. 

The curvatures of the hub and shroud profiles are then calculated where these pro- 
files are intersected by the upstream and downstream boundaries of the orthogonal mesh. 
These curvatures are later required in the VBDRY subroutine. 

The z- and r-coordinate arrays (ZLE,RLE and ZTE,RTE) are then set up at points 
which define the leading and trailing edges of the blade. These values are the first and 
last values for each blade plane from the ZBL and RBL blade -coordinate input arrays. 

The intersections of these leading and trailing edges with the hub and shroud are also 
calculated with INRSCT calls. 

Various quantities are then calculated on the orthogonal mesh at or near the leading 
and trailing edges of the blade. With INRSCT calls, the z- and r-coordinates of inter- 
sections of horizontal mesh lines with the blade edges are calculated. Vertical mesh 
line numbers (ILE and ITE) of mesh points which lie just within the blade leading and 
trailing edges are then calculated by comparing the z-coordinates of mesh points aloi^ 
the orthogonals with the z-coordinates of intersections of the orthogonals with the blade 
edges. The s- and t-coordinates are then calculated for the points where the horizontal 
mesh lines cross the blade edges. 
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Figure 9. * Flow chart for PRECAL 
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Then PRECAL calls three other subroutines, THETOM, THIKOM, and LOSSOM, 
The THETOM routine calculates d9/ds and dO/dt at the orthc^onal mesh points. Sub- 
routine THIKOM makes corrections to the BTH array to account for blade thickness, 
and LOSSOM calculates the relative total pressure loss at the downstream boundary of 
the orthogonal mesh. This loss is distributed linearly through the blade row by making 
an additional correction to the BTH array . 

Finally, in PRECAL, corrections are made to some upstream and downstream in- 
put arrays and correspondii^ boundary conditions in the case where a reduced-mass- 
flow solution is to be obtained (REDFAC < 1.0). The wheel speed, mass flow, whirl, 
and tangential velocity are all reduced by REDFAC; and the upstream and downstream 
boundary conditions of whirl are reinitialized by IjAMDAF and RVTHTA calls. 


Subroutine THETOM 

Subroutine THETOM calculates the gradients d6/ds and 90/9t at the orthogonal 
mesh points which lie within the leading and trailing edges of the blade. This process 
is thoroughly described in appendix C. 

Theta coordinates of the mean blade surface (THBL) are given at the input blade 
section points (ZBL,RBL). Gradients of the ^-coordinate are required in the s- and 
t-directions at the orthogonal mesh points within the blade for use by the NEWRHO sub- 
routine. 

Subroutine THETOM makes use of the technique of defining an alternate mesh which 
is entirely contained within the blade on which 90/ 3z and 90/9r are obtained. By in- 
terpolation, 90/0Z and 9fl/3r are then obtained at the required orthogonal mesh points. 
Finally, 90/9s and 90/9t are calculated from 90/9z and 9e/9r at these points. 


Subroutine THIKOM 

Subroutine THIKOM calculates the blade thickness in the 0-direction at the points of 
the orthogonal mesh which lie within the blade edges. (Input blade thicknesses are not 
given at the orthogonal mesh points, nor are they given in the 0-direction. They are 
given normal to the blade mean camber line along each input blade section.) 

THIKOM first calculates the s* -coordinate and then the angle k between the mean 
camber line and the s’ -coordinate direction, as shown in figure 10. (The s' -coordinate 
corresponds to the input blade section direction.) With these angles, approximate thick- 
nesses in the tangential direction t^ are calculated from thicknesses normal to the 
meanline t^ by the equation 
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This calculation is subject to error for highly cambered or highly staggered blade sec- 
tions but is adequate here since t^ is only used as a blockage correction to the BTH 
array. 

After tg is obtained at the input points, LININT is called to interpolate and obtain 
it at the orthogonal mesh points. Then it is subtracted from the BTH array. 



Subroutine LOSSOM 

Subroutine LOSSOM calculates the downstream relative total pressure loss and dis- 
tributes it upstream through the blade row as an area correction. This correction is 
made to the BTH array. The loss. is calculated as 1 minus the ratio of actual to ideal 
relative total pressure alor^ the hub-shroud input line downstream of the blade. 


Loss = 1 - 


(»ol 


ideal 


In one input option, p!, T!, and p^ are given and TJ^ is then calculated from 
Euler’s equation. Then using the relations 
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y/{y-l) 


Po 



and 




y/(y-l) 


ideal _ 

Pi 



we form the ratio of actiial to ideal relative total pressure 



Pon 


, \y/(y-l) 


There is an alternate input option where loss is given as input. In that case, relative 
total pressure ratio is calculated as 


P” 

2 — = 1 - Loss 

('““Ual 

Subroutine LOSSOM then estimates the stream function, based on area, at points on 
the downstream boundary of the orthogonal mesh. Subroutine SPLINT is then called to 
interpolate the values of relative total pressure ratio at these same downstream bound- 
ary mesh points. From the interpolated values of pressure ratio, loss is computed by 
using the preceding equations. It is assumed that the horizontal mesh lines are close 
approximations to the actual streamlines. Thus, the loss is distributed along horizon- 
tal mesh lines. Along any mesh line, loss is assumed to be constant in the region 
downstream of the blade trailing edge and equal to the downstream boundary value. Be- 
tween the blade leadii^ and trailing edges, loss is distributed linearly from zero at the 
leading edge to full value at the trailing edge. It is assumed that no loss occurs up- 
stream of the blade. Loss is included in the stream -function solution by reducing the 
value of B as follows: 


®net " 

where is the final value stored in the BTH array. 
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Subroutine ME PLOT 


Subroutine MEPLOT makes two microfilm plots of the blade in the meridional plane. 
The first plot shows the input hub and shroud geometry and the blade leading and trailing 
edges. The edges are obtained from the ZBL and RBL input arrays. The second plot 
shows the same hub, shroud, and blade but with the generated orthogonal mesh super- 
imposed on the solution region. Examples of these plots are given in figimes 16(h) 
and (i) of part I (ref. 6). 

Prior to makit^ these two plots, MEPLOT calls PTBDRY to obtain the boundary 
points to be plotted on the hub, the shroud, and the blade edges and to scale the plots. 


Subroutine PTBDRY 

Subroutine PTBDRY obtains coordinates used in plotting the hub, the shroud, and 
the blade edges by the two routines MEPLOT and SLPLOT. Usii^ SPLINT calls, 
PTBDRY interpolates on the input arrays ZHUB,RHUB and ZTIP,RTIP to obtain 
100 plottii^ points on both hub and shroud. The same is done with the blade leadii^ and 
trailing edges. After the plot points are obtained, PTBDRY searches the. range gf;yal- 
ues to be plotted for the maximum in both X- and Y-directions and adjusts the range of 
plotted points so that it is the same in both directions. The computed information is 
stored in the /PLTCOM/ COMMON. 


Subroutine VBDRY 

Subroutine VBDRY calciilates the value of the stream function along the upstream 
and downstream boundaries of the mesh region. The calculation is based on the velocity- 
gradient equation (C9) of part I (ref . 6). 

There are four arguments for VBDRY so that the same coding can be used for either 
the upstream or downstream boundary. These arguments are LOC, TIPF, RHOIPF, 
and LAMDAF. The argument LOC is the value of I for the desired boundary, that is, 

LOC = 1 on the upstream boundary and LOC = MM on the downstream boundary . The 
other three arguments are function subroutines. That is, TIPF, RHOIPF, and LAMDAF 
will refer to the subroutines of the same name at the upstream boundary but will refer to 
TOPF, RHOOPF, and RVTHTA, respectively, at the downstream boundary. Figure 11 
is a flow chart for VBDRY . 

The first step is to set CURVH and CURVT to the value of the meridional curvature 
at the hub and tip. For this, values previously calculated in PRECAL are used. To 
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Figure 11. - Flow chart for VBDRY. 

start the iterative procedure, a reasonable estimate of the hub relative velocity is 
needed (WHUB) . This estimate is based on a one-dimensional calculation. Before any 
coefficients for the velocity -gradient equation can be calculated, values for whirl and 
free -stream absolute stagnation temperature and density are needed. These are all 
functions of stream function. An initial value of stream function is estimated based on 
area distribution. Values for whirl and free -stream absolute stagnation temperature 
and density are then obtained from subroutines LAMDAF, UPF, and RHOIPF and are 
stored in arrays. 
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Now the coefficients of the velocity -gradient equation (C9) of part I (ref. 6) can be 
calculated. Either equation (CIO) or (Cll) of part I will be used, whichever is appro- 
priate. The curvature, 1/r , is assumed to vary linearly along the boundary. It is 

c 

assumed that the boundary is normal to the streamlines so that a - <p. The quantity 
cos (p has been previously calculated by MESHO. 

After the coefficients are calculated, the velocity -gradient equation is solved 
numerically. WHUB is the initial value of W on the hub. The first iteration will use the 
value of WHUB calculated previously by VBDRY. Later iterations will use estimated 
values calculated by GONTIN. Once WHUB is specified, the numerical solution to the 
velocity -gradient equation is calculated by the Heim method (ref. 9). The equations used 
in the Heun method for this case are 

= W. + (dW) . 
wp = W^ . (dW)p 
wf , + W** 

W. . = — i -J — average of two estimates of W. , 

1 +^ 2 




first estimate of W. 


j+1 


second estimate of W 


j+1 


( 1 ) 


where (dW)^ (eq. (C9) of part I) is evaluated at t. and W., and where (dW)f^j is eval- 
uated at Vl and . At the same time the solution of the velocity -gradient equa- 
equation is being calculated, the mass flow integration is also beii^ calculated by trape- 
zoidal integration: 


ptip 

w = I pW cos j3 rB dt 

Jo 

The equations used in calculatii^ the int^rand are (B13), (C5), (C6), (C7), and (D4) of 
part I (ref. 6). At the end of the DO loop at statement 80, the integrated mass flow, 
UOM (LOG, MHTPI), has been calculated for the specified value of WHUB. This value 
is checked to see if it is within the tolerance to MSFL. If not, GONTIN is called to pro- 
vide the next estimate for WHUB. See GONTIN for a description of the procedure for 
finding the correct value for WHUB. Provision is made to adjust WHUB to avoid prob- 
lems in calculating either p (if WHUB is too small) or T/T’ (if WHUB is too large). 

(See eqs. (G6) or (B13) and (D4) of part I.) After a few iterations, usually four or five 
and not more than 100, a solution will be found that satisfies continuity. This completes 
the inner iteration of this subroutine. Then the values of the absolute stagnation tern- 
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perature Tj or T^, the absolute stagnation density p\ or and the whirl X or 
(rVg) are recalculated from the new stream-function values. If tiiere is a significant 

change in any of these values, the solution will be repeated (REPEAT = .TRUE.). 

When a final acceptable solution is found, the program returns to the main program 
If the passage is choked or if an acceptable solution cannot be found in 1000 total itera- 
tions, the program will print an error message and stop. See the section Error 
Messages in part I (ref. 6) for suggestions on what to do when an error message is 
encountered. 


Subroutine INIT 

This subroutine initializes certain arrays in /VARCOM/. This is necessary to 
start the outer iteration running from COEF to SVPLOT. For the initial iteration, it is 
assumed that p = p3 throughout the passage. All other values are set to zero, except 
for W . W... and W , which are set to values which will avoid division by zero. 


Subroutine COEF 

Subroutine COEF calculates the coefficients aj^, a2> Sj, u**d a^ and the con- 
stants for the finite -differs nee equations. The finite -difference equation is (A5) or 
(A 7). The coefficients are calculated by the procedure of equation (A 8), and the con- 
stants are calculated by equation (A9). Within the blade row, the value of the con- 
stant depends on 3(rV^)/3r. This gradient tends to be unstable with iteration, so 
that usually damping is required between iterations. The damping rate is controlled by 
the input variable DNEW. Suggestions for choosing proper values for DNEW are given 
in the INPUT section of part I (ref. 6). For every outer iteration, the maximum and 
minimum values of 3(rVp/3r and the maximum predicted change in 3(rVg)/Br are 
calculated and printed. When it is indicated by the value of IDEBUG, the coefficients a 
and the constants will be printed. 


Subroutine SOR 

Subroutine SOR solves the finite -difference equations (A5) by the method of over- 
relaxation (ref. 10). Equation (A 5) holds at every interior point of the orthc^onal mesh 
where the value of u is initially unknown. Thus, if there are n interior points, we 
have n equations with n unknowns. Equation (A 5) is nonlinear but can be linearized 
by using values from the previous outer iteration for the nonlinear terms or factors. 
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SOR solves only the linearized equations. 

The overrelaxation iteration is the inner iteration; it is optimized by usii^ an op- 
lUmum over relaxation factor (ORF). The calculation of ORF is done only the first time 
sthat SOR is called. The optimum value for the overrelaxation factor is estimated 
by using equations (B3) and (Bl) of reference 11. At each interior point, is cal- 

culated from the values of u at the neighboring points by 
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i=l 


where each u. is the most recently calculated value for the point. To start, u^ = 1 
at the interior points and = 0 at the boundary points. The maximum (LMAX) and 
minimum (LMIN) values over all the interior mesh points of the ratio a^"**^/u™ are 
calculated for m = 1, 2, 3, . . . until the LMAX and LMIN ratios are close to each 
other . Then the optimum overrelaxation factor (ORF) is calculated by 

ORF = 2 /(l + y'l - LMAX The theory for calculating ORF is derived in refer- 
ence 10. 

With an optimuin value for the overrelaxatioh factor Si, the solution to equation (A 5) 
is calculated by overrelaxation by 


u 


m+1 







where each Uj is the most recently calculated value at an interior point or is a bound- 
ary value. During each iteration, the maximum chaise of die stream function is calcu- 
lated. When this maximum change is reduced below 10 , the iteration is stopped, and 

the cxirrent estimate of the stream function is accepted as the solution. 


Subroutine NEWRHO 

Subroutine NEWRHO calculates the velocity magnitude and components and the den- 
sity at each point of the orthogonal mesh. Figure 12 is a flow chart for NEWRHO. 

Normally, the upstream and downstream flow conditions, including whirl, are given 
as a function of the stream function. However, this information may be given as a func- 
tion of position from hub to tip. In this case, an initial estimate of streamline position 
is made in PRECAL. Then adjustments are made in each iteration. This is done in 
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Figure 12. - Flow chart for NEWRHO. 


NEWHHO by reinitializing the subroutines for calculating upstream and downstream 
flow conditions (LAMDAF, RVTHTA, TIFF, RHOIPF, and RHOOPF), An explanation 
of how upstream and downstream flow conditions are matched to the stream function 
solution is given in appendix B. 

The main function of NEWRHO is to calculate the partial derivatives of the stream 
function in the s- and t-directions. These partials are used to calculate the velocity com- 
ponents. These components, together with either the blade shape or the specified whirl, 
determine the relative velocity magnitude. With the relative velocity known, the density 
can be calculated. Subroutine NEWRHO calculates | and ? for the next iteration. 

The first major loop in NEWRHO calculates dl/da and 9p*V9s. This is done by 
first calculating I and p” along the horizontal mesh lines. The actual relative stag- 
nation pressure p’* is calculated by 
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y/(y-l) 


( 2 ) 


where 


PiRTj 



Ptdeal-P’ ^ 
Pideal 



2(uX - (q>r)^ 


2CpT! 


(3) 


Equation (3) is the same as equation (B13) of part I with W = 0. The rothalpy I is cal- 
culated from equation (B 7) of part I (ref. 6) . Then, 3I/9S and 3p”/3s are calcidated 
by calling the subroutine SLOPES . 

The next loop calculates W^. First, SPLINE is called to calculate 0u/9s along 
horizontal mesh lines. Then is calculated by equation (Gil) of part 1. 

The final major loop calculates partial derivatives in the t-direction and then calcu- 
lates Wg, Wg, Vg, W, p, ^ , and ^ at every mesh point. The first inner loop calcu- 
lates T”/T| and p” by equations (3) and (2). along vertical mesh lines. The values of 
the t-coordinate and stream function u are also stored in temporary arrays. Then 
SPLINE is called to calculate 9u/9t, and SLOPES Is called twice to calculate 9I/9t and 
3p”/9t. The second inner loop performs the remaining calculations. Equation (GIO) 
of part I is used to calculate W^. Within the blade Wg can be calculated from W^, W^, 
90/9s, and 36/dU Since 


^0 = ^ 


d0 

■— = r 

( li iL 

dni 

\^9s dm 

ds 

_ 

dm 


dt 


dnu 
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we have 


= r(w — + W. — ^ 

^ \ ® as * at y 

within the blade . Outside the blade , 

- - tijr upstream of blade 
r 

2 - cor downstream of blade 

r 

Then Vg and W are calculated by 





W = 




w| + + w 


2 

t 


The ideal density p is calculated by 


P = Pi 



where T/TI is calculated by equation (B1 3) of part I (ref. 6). Then ap/3r and ai/ar 
are calciilated by 


ap 3p . ap 

-E. = _E. sin <p + ^ cos <p 
dr 3s at 


ar 


= — sin <p + — cos cp 

as at 


Relative total temperature T" is also needed and is calculated from previously calcu- 
lated values of T”/T; and T!. This gives all the quantities needed to calculate ^ 
and C from equations (A2) and (A3) of part I- 
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After all calculations are done, the iteration number and the maximum relative 
change in velocity are printed. Also, if the solution is converged on velocity, the print 
control variables are set to 1 whenever a positive value is specified as input. This re- 
sults in output beir^ printed for each item asked for after convergence. 

There are also two error messages for NEWRHO in case the velocity at some point 
becomes too large or if the upstream whirl is too large. Suggestions for correcting in- 
put are given in the section Error Messages in part I. 


Subroutine OUTPUT 

The OUTPUT subroutine calculates and prints all the major output data from 
MERIDL. A flow chart for OUTPUT is shown in figure 13. Depending upon the wishes 
of the user, OUTPUT has the potential for printit^ output on three separate sets of 
points. These points are illustrated in figure 14. Output may be obtained (1) at the or- 
thogonal mesh points, (2) along streamlines where they are crossed by vertical orthog- 
onal mesh lines, and (3) along streamlines where they are crossed by user -designated 
hub-shroud station lines. A detailed description of the output in each case is given 
in part I under Printed Output. 

The printing of output is controlled by the iteration counter ITER and the input var- 
iables IMESH, ISLINE, and ISTATL. Because of the large volumes of output possible, 
it is only given at the locations requested by these variables and when ITER is an inte- 
ger multiple of these variables. 

No matter what the values of IMESH, ISLINE, and ISTATL, data are calcvilated at 
the orthogonal mesh points for every iteration, (Whether or not it is printed depends 
upon IMESH. ) Output aloi^ streamlines and on station lines is then interpolated from the 
calculated data at the orthogonal mesh points if the values of ISLINE or ISTATL indicate 

that the user desires these outputs at the current iteration. Output along streamlines is 
also calculated if it is needed for plotting (controlled by IP LOT) or if it is needed for 
calculating the input to the TSONIC prc^ram (controlled by ITSON) . 

The first sections of the OUTPUT routine calculate data on the orthogonal mesh. 

At the main entry to this routine, Wg, W^., and are known from NEWRHO; and 
the other velocity components and flow angles are calculated as follows: 

W^ =l/w? + wf 

m f s t 


sin(o' - (p) = 


W. 


W 


m 
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W„ = W„ cos - W. sin <p 
z s ^ 

= W^, cos <p + Wg sin <p 


a = tan 


-1 



^ = tan 


-1 



Shroud 


. • f 

Horizontal y / 
orthogonals^^^^ 


Vertical 

orthogonals-^*^ 


Stream (ines-C 


Station 
^ ' lines 



Mesh-point output - at intersections of 
orthogonal mesh 

Streamline output - where streamlines 
cross vertical orthogonal s 
Station -'line output - where streamlines 
cross user-designated station fines 

Streamlines and station lines 
Orthogonal mesh lines 


Figure 14. - location of three major types of output. 


This coding is followed by an entry point TOUTPT which is used only after TVELCY has 
been called to obtain transonic velocities (see the block diagram, fig. 2, when 
REDFAC < 1.0). From this entry point, Oie velocity components are calculated some- 
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what differently since W has been recalculated by TVELCY, as well as )3 upstream 
and downstream of the blade. The angle ot is assumed to be the same as in the final 
subsonic iteration. With W, /3, and or known, the velocity components are now calcu 
lated as follows: 

W_ = W cos ^ 
m ^ 

= W sin |3 

W„ cos Of 

z m 

W,. = sin a 

T m 

V^ = W^ + u,r 

At this point in the program, all velocity components and flow angles have been 
calculated, regardless of the entry point. With velocity components and flow aisles 
known, streamline curvature is obtained from 

— = = — cos(<r -</?) + — sin(a - <p) 

r^ dm 9s 9t 

c 

Then critical velocity ratio is obtained from 

2 

rptt — 'pi ^ 2cc>X ^ (cc>r) 

' ‘ 's 


w w 



The subroutine BLDVEL is then called to calculate and retvrrn an estimate of blade sur- 
face velocities. Finally, a check is made to see if the suction- and pressure -surface 
velocities have to be exchanged because of the orientation of the turbine or compressor. 
At this point, all desired information has been calculated on the orthc^onal mesh and is 
printed if ITER is a multiple of IMESH. 
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The next section of the OUTPUT routine calculates output on the streamlines where 
they are intersected by vertical orthogonal mesh lines. This output is calculated only if 
ITER is a multiple of ISLINE, IPLOT, or ITSON. First, streamline z- and 
r-coordinates are calculated. The m-coordinates are then calculated from these, using 
the z = 0 point along a streamline to correspond to m = 0. Interpolations are then 
made by using LININT and the orthogonal mesh data to obtain W , W , W.,. W/W 

z’ ( 7 ^ ' cr’ 

and l/r^,. By using variations of the preceding formulas, a, /3, and W are calcu- 
lated from these values. Subroutine ILETE is called to establish which mesh points 
along streamlines are between the blade leading and trailii^ edges. Subroutine LININT 
is then used to obtain and at these points. Finally, this output is printed if 
ITER is a multiple of ISLINE . 

The next section of the OUTPUT routine calculates output on user -designated hub- 
shroud station lines where they intersect the streamlines. This output is calculated and 
printed in the hub-shroud direction, in contrast to the throughflow direction of the pre- 
vious two sets of output. It is only calculated if ITER is a multiple of ISTATL. The 
z- and r-coordinates of the station lines are calculated first. All ’’regular” station 
lines are straight lines (not necessarily radial) from the hub to the shroud. ’’Blade 
edge” station lines are those whose hub and tip coordinates correspond to the inter- 
sections of the blade leading and trailing edges with the hub and tip. Coordinates aloi^ 
these station lines will follow these edges even vdien the edges are curved. After the 
z- and r-coordinates are established, m-coordinates are calculated from these, again 
using z = 0 as the reference for m = 0. Interpolations are then made using LININT 
with the orthogonal mesh values to obtain W^, W^., W^, and streamUne curva- 

ture, The values of a, and W are calculated from these . LININT is then 
caUed to obtain and for station lines which lie within the blade. The station- 
line output is then printed. 

The final small section of OUTPUT calls the TSONIN subroutine to obtain input data 
for the TSONIC program (ref. 5). This call is only made if ITER is a multiple of ITSON. 


Subroutine BLDVEL 

This subroutine calculates blade-surface velocities and densities and F . First, 
9(rVg)/at and 3(rVg)/as are calculated by using the SLOPES subroutine. Then, 
(d(rv^)/dm] B cos p is calculated, and and are calculated by equation (G4) of 
par I (ref. 6). From this, and are calculated by equations (B13) and 0)4) of 
parti. The average density p^^ is calculated by Simpson’s rule 


^ _ Pf 4pmid Ptr 

Pav ; 
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This quantity is used in NEWRHO in the next iteration. Then, the predicted value of F^, 
is calculated by 

= — (— sin ^ + l^ cos DFDM- . (4) 

^ B\9s at / 

'^here ... .. 

3(rV.) . 

DFDM = -B cos 0 — 

am ’ ' . 

Equation (4) is obtained from equations (B23) and (G2) of parti (ref. 6). The new value 
for Fj.. is calculated from the old F^, and the predicted value of F^ by using the input 
damping factor FNEW, as explained in the section INPUT of part I. 

At the end , the minimum and maximum predicted values of F^. and the maximum 
change in are calculated and printed. If debug output is requested, the arrays 
which chaise each iteration are printed. 

' ' ' . - ... 

Subroutine ILETE 

' U i 

The points where streamlines are intersected Iqr the vertical orthogonal mesh lines 
are the streamline mesh points. These are, in general, different from the orthogonal 
mesh points. Subroutine ILETE calculates two integer arrays, ILS and ITS, They con- 



figure 15. - Location of ILS, ITS points by ILETE. 
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tain the numbers of the vertical mesh lines at the first intersection of a streamline with 
a vertical mesh line inside the blade region at the leading and trailing edges of tiie 
blades. These points are illustrated in figure 15. The ILS and ITS arrays are used in 
OUTPUT in the calculation of blade surface velocities along streamlines. 


Subroutine TSONIN 

Subroutine TSONIN generates and prints the data required as input to the TSONIC 
blade *>to “blade analysis prc^ram (ref. 5). Subroutine TSONIN is only called when ITER 
is a multiple of ITSON. The data generated are printed for each of the stream surfaces 
from hub to shroud, using 1 percent of the mass flow about a streamline to define a 
stream surface or flow channel. 

A complete description of the TSONIC input is given in the TSONIC report (ref. 5). 
The output generated in TSONIN is slightly different from what is required by TSONIC, 
These differences and the changes which have to be made to make these data acceptable 
to TSONIC are described in part 1. 


Subroutine INDEV 

Subroutine INDEV recalculates dd/ds to allow for incidence and deviation. This 
means that the mid-channel flow surface differs from the blade mean camber line near 
the leading and trailing edges, so as to match the upstream and downstream flow angles. 
Figiure 16 shows the procedure as applied to the leading edge. A similar correction is 
made at the trailing edge. A correction for blockage is made so as to satisfy both con- 
tinuity and tangential momentum at blade leadiig; and trailing edges. 

The calculation starts at the hub and proceeds to successive horizontal mesh lines 
up to the tip. Both incidence and deviation corrections are calculated for each hori- 
zontal mesh line. The corrected (3^/9s)j^j of the blade leading or trailing edge is cal- 
culated from equations (FI) and (F2) of part I (ref. 6), These equations relate (30/as)v ^ 
to the flow aisles and 

The corrections to dO/ds are made so that the difference varies linearly from the 
blade leading or trailing edge for the distance specified in appendix F of part I. After 
the corrections are made, the incidence and deviation angles are printed if re- 
quested . 

No correction is made to dO/dt since it is nearly normal to the flow. 
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’•-Mean camber /Ine 



Figure 16. - Corrected mid-channel flow surface. The corrected mid- 
channel flow surface is used to calculate ld0/ds)j)f- Incidence = 

Pbf ‘Pb- 


Subroutine SLPLOT 

Subroutine SLPLOT makes a microfilm plot of the streamlines in the hub-shroud 
meridional flow plane. The first small section of coding plots a separate frame of film 
identifying either a subsonic solution and iteration number or a transonic solution. The 
remainli^ coding plots the hub, shroud, and blade profiles in the meridional plane and 
then adds the streamlines to the same plot. An example of this plot is given in fig- 
ure 16(j) of part 1. 

Subroutine SVPLOT 

Subroutine SVPLOT makes microfilm plots of relative velocities on all streamlines 
from hub to shroud . These plots are only made when ITER is a multiple of IPLOT or 
when ITER = 1. A separate plot is made for the velocities on each streamline. These 
plots include mean flow velocities and blade surface velocities plotted against meri- 
dional coordinates. Examples of these plots are given in figures 16(k) and (1) of part I 
(ref. 6). After the separate streamline plots are made, three composite plots are made. 
The first contains the mean flow velocities for all streamlines. The second and third 
contain the suction- and pressure -surface velocities, respectively, for all streamlines. 

Subroutine TVELCY 

Subroutine TVELCY calculates the full -mass -flow, transonic solution when REDFAC 
is less than 1 . The velocity -gradient equation developed in appendix C of part I is used 
to obtain the solution. Figure 17 is a flow chart for TVELCY. 
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The first step in the program is to restore the full value of mass flow, rotational 
speed, and inlet and outlet whirl. The subroutines LAMDAF and RVTHTA must then be 
reinitialized . 

Next, 3W /dm and 3Wa/9m are calculated. These are calculated from the 
partials with respect to s and t by using the angle a ~ <p. Since the calculations 
are based on the reduced -mass -flow values of and W^, the result must be di- 
vided by REDFAC to obtain the full -mass -flow values. 

Statement 60 is the beginning of the outer DO loop. It starts at the upstream bound- 
ary and solves the velocity -gradient equation for each vertical mesh line. The initial 
estimate of W on the hub (WHUB) is set equal to the reduced -mass-flow value for W 
divided by REDFAC. For a given vertical line, the coefficients a, b, c, d, e, and f 
of the velocity -gradient equation (A 7) of part I are calculated. The coefficients are cal-j 
culated by equations (A 8) to (All) of parti. Of these coefficients, a, b, and d will not 
be changed after the initial calculation, so they are calculated first. The initial arrays 
for whirl, temperatrme , and density are calculated at the same time. 

For each vertical mesh line, an inner and an outer iteration is required. Each outer 
iteration consists of solving the velocity -gradient equation for a given distribution of up- 
stream and downstream flow conditions. The inner iteration solves the velocity -gradient 
equation by varying at each inner iteration until continuity is satisfied. The outer 

iteration starts at statement 90. None of the coefficients change during the inner itera- 
tion, so the remaining coefficients, c, e, and f, are calculated from equations (A9) to 
(All) of part I before starting the inner iteration. Also, part of the integrand for the 
mass flow integration is calculated now. This part is RCARB, which is equal to 
p! cos(of - ^)rB. 

At statement 140, the inner iteration starts. First, initial values are set. The nu= 
merical solution of the velocity -gradient equation and the mass flow integration are done 
in the DO 200 loop. Trial values of WHUB are used in the velocity -gradient equation, 
until the solution obtained results in the input mass flow across the vertical mesh line. 
The first iteration will use the value calculated by the statement after statement 80. 

Later iterations will use estimated values calculated by CONTIN. Once WHUB is speci- 
fied, the numerical solution to the velocity -gradient equation is calculated by the Heun 
method, as described for VBDRY. The solution procedure is the same, except. that dW 
in eqtiation (1) is evaluated by equation (AT) of part I (ref. 6). The mass flow is calcu- 
lated by trapezoidal integration of 

r%p 

w = / pW cos (3 cos(o! - (p)rB dt (5) 

“'0 
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As explained in appendix D of part I (ref. 6) , p is the ideal density and B is reduced 
reflect any loss of stagnation pressure. 

The inner iteration ends when the velocity gradient solution gives the correct mass 
fbw in equation (5) . (If the correct mass flow is not obtained in 100 iterations, an error 
tttessage is printed, and the program goes to the next vertical line.) After the end of the 
iimer iteration, at statement 250, the upstream and downstream flow conditions are 
checked. If there is a significant change in the value of inlet or outlet stagnation tem- 
perature or density, or whirl, these values will be adjusted and the inner iteration will 
be repeated by going back to statement 90, unless there has been a total of over 1000 
iterations for a given vertical mesh line. The outer iteration is completed when there 
is no significant change in the solution, and the program goes to the next vertical line 
(the DO 280 loop). After all vertical lines have been completed, control is returned to 
the main program. If the blade is choked, a message is printed with the choking mass 
flow, . 


Function TOPF 


Function TOPF calculates downstream stagnation temperature T^ from the up- 
stream stagnation temperature and the change in whirl. That is, 



The input argument (SF) is the value of the stream function (between 0 and 1). The 
function TOPF is then T|^ for this streamline. 


Functions TIPF, RHOIPF, LAMDAF, RHOOPF, and RVTHTA 

These five routines are similar. Their purpose is to calculate one of the free- 
stream quantities as a fimction of stream function. Interpolation is by means of a spline 
fit curve. 

All these subroutines have an alternate entry point for initialization. The initiali- 
zing call results in a SPLINE call to calculate the coefficients for the spline fit. 

If the free-stream qxjantities are not given as input as a ftmction of stream function 
(i.e. , if LSFR = 1), the stream function is first estimated and later iterated to be ad- 
justed to the correct stream -function value. These adjustments to the stream function 
(SFIN and SFOUT) are done in LAMDAF and RVTHTA , 
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The Input argument for all these subroutines is SF, which is the value of the stream 
function. 


I 

j 

Subroutine CONTIN i 

Subroutine CONTiN is a curve -fitting routine. On each call the calling programs 
must furnish a point on the curve, and then CONTIN will specify the next value of the 
abscissa. The calling pregram must then calculate the ordinate corresponding to this ( 
abscissa. After three calls, a parabola is fitted through the three points, and this is 
used to estimate the abscissa where the desired ordinate will be obtained. XEST is the 
value of the abscissa, and YCALC is the value of the ordinate on each call. XEST is 
changed by CONTIN to return the next value of the abscissa to the calling program. 

Figure 18 is a flow chart for CONTIN. Flow through the program is controlled by 
the value of IND. For each new case, IND is set to 1 by the calling program. Then 
CONTIN changes the value of IND on later calls. The significance of IND on the various 
calls is given in table n. XDEL is the maximum increment for the change in XEST. On 
the first two calls, usually XEST is increased by XDEL each time. The exception is 
when YCALC is greater than YGIV and the subsonic solution is desired (JZ = 1). Then 
XEST is decreased by XDEL each time. 

On the third and later calls, there are always three points so that a parabola can be 
fitted through the three points. The parabolic coefficients are calculated by subroutine 
PABC. Anytime that XEST falls outside the range of previously calculated values, a 
shift is made until XEST is within the desired range. 

When the parabolic curve is close to a straight line, equation (D13) is used instead 
of the quadratic formula. The reason for this is explained in appendix D, 

Figure 19 illustrates the procedure for a typical case. On the first call to CONTIN, 
IND = 1 and YCALC correspondiig to XEST is furnished by the calling program. Sup- 
pose that YCALC is less than YGIV and that the subsonic solution is requested. Then 
XEST becomes XORIG, and YCALC becomes Y(l) in figure 19. XORIG will be the origin 
for the curve fitting so that X(l) = 0 in this case. Next CONTIN increases XEST by 
XDEL. Then a return is made to the calling program to obtain the YCALC which corre- 
sponds to this value of XEST, On the second call to CONTIN, the new value of YCALC 
becomes Y(2) and XEST - XORIG becomes X(2), as indicated in figure 19. Subroutine 
CONTIN Increases XEST by XDEL again, and a return is made to obtain YCALC for the 
third time. On the third call to CONTIN, the new value of YCALC becomes Y(3) and 
XEST - XORIG becomes X(3). This gives the three points shown in figure 19. The 
curve shown represents the true curve of YCALC against XEST, 

At this time, a check is made to determine whether the solution is within the range 
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TABLE II. - SIGNIFICANCE OF IND IN VARIOUS 


CALLS TO CONTIN 


Value of 
IND 

Call 

Sip^nificance 

1 

First 

First call 

2 

Second 

JZ ~ 1, YCALC less than WTFL, 
or JZ = 2 

3 

Second 

JZ = 1 and YCALC greater than 
WTFL 

4 

Third 

IND = 2 on second call 


Fourth or later 

Right shift was made so that 
XEST will be within range of 
stored previous values. 

5 

Third 

IND = 3 on second call 


Fourth or later 

Left shift was made so that 
XEST will be within range of 
stored previous values. 

6 

Fourth or later 

Subsonic or supersonic solution 
is predicted by quadratic fit and 
is within range of solutions 
obtained . 

7 

Fourth or later 

1 

1 

1 

Choked flow is predicted by 
quadratic fit and is within 
range of solutions obtained. 

10 

Never ' 

Choked solution found 

U 

Never i 

100 calls made but no solution 
found 


y 



XU) X12) X(3) 


XORIG 

Figure 19, - Starting procedure for COrJTIN. 




\ 

of the three points obtained. If not, additional points are calculated, and the three 
points are shifted as reqviired. For example, in figure 19, a shift to the right is re- 
quired. In this case, point 2 would become point 1, point 3 would become point 2, and 
XEST would be increased by XDEL. This procedure is repeated until either the solu- 
tion or the maximum point is within the range of the three points obtained. 

Since the curve represents mass flow as a function of the velocity at some point, 
the curve will be of the type shown. The, maximum point on the curve is the choking 
mass flow. This type of curve is approximated well by a quadratic curve. After it has 
been determined that a solution is within the range of the three points (i.e. , 

Y(l) :£ YGIV Y(3) for a subsonic solution), a parabola is fitted throt^h the three 
points. This situation is illustrated in figure 20. The next value of XEST is deter- 


r True curve 

y 



mined by the point where the parabolic curve intersects the YGIV line. Then the return 
is made to obtain YCALC. If YGALC is sufficiently close to YGIV, this will be the solu- 
tion. Otherwise, CONTIN is called again, XEST - XORIG becomes X(2), YCALC be- 
comes Y(2), and the procedure is repeated (as many as 100 times) until YCALC is 
sufficiently close to YGIV, 

The detailed operation of subroutine CONTIN is given in figure 18 and table II. The 
calling statement for CONTIN is 

CALL CONTIN(XEST, YCALC, IND, JZ,YGIV,XDEL) 

The input variables for CONTIN are 

XEST last value of X used to calculate YCALC 

YCALC value of Y corresponding to XEST (calling program calculates YCALC) 
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IND controls sequence of calculation in CONTIN; callit^ program sets IND - 1 

to indicate a new solution 

JZ determines whether subsonic or supersonic solution will be obtained: 

JZ = 1, subsonic solution 
JZ = 2, supersonic solution 

YGIV value of Y desired for solution 

XDEL maximum permissible change in XEST between iterations 

The output variables for CONTIN are 

XEST value of X to be used to calculate the next value for YCALC 

IND used to control next iteration in CONTIN and to indicate when a choked 

solution is found or when no solution can be found (table II) 

The internal variables for CONTIN are 

ACB2 a(c - y)/b^ 

2 

A PA coefficient a of X in quadratic fit 

BPB coefficient b of X in quadratic fit 

CPC constant C in quadratic fit 

DISCR discriminant, y^b^ - 4ac 

NCALL number of times CONTIN has been called for a given case 

X array of three values of XEST - XORIG 

XORIG value of XEST on initial call, modified by right or left shifts 

XOSHFT amount of change of XORIG 
Y array of three values of YCALC 

Subroutine PABC 

Subroutine PABC calculates coefficients A, B, and C of the parabola 
y = Ax^ + Bx + C passing through three given X, Y points. 

Subroutine INRSCT 

Subroutine INRSCT calculates the coordinates of the point of intersection of two 
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spline curves lying on a common plane which are known to cross within the range of 
the end points of each. In a general x-y coordinate system » the first spline curve is 
supplied to INRSCT as a function of x 


y = f(x) 


and the second as a function of y 

X = g(y) 

The solution technique consists of systematically constructing pairs of tangent 
slopes to the two curves and locating the points of Intersection of the two slopes. Each 
intersection point provides new coordinates from v^ich new slopes and an intersection 
are calculated . These intersections quickly converge to the intersection point of the 
original curves. 

This technique is illustrated in figure 21. The original trial x-coordinate is always 



Figure 21. - Procedure for calculating intersections in INRSCT. 

midway between the end points for f(x). This value is Xj, from which y. and slope s. 
are calculated by SPLINT. The calculated yj is then used as input to SPLINT for g(y). 
From this SPLINT call, Xg and Sg are calculated, as shown in figure 21. The inter- 
section point of the two slopes is calculated from 
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Then x becomes Xj for the following iteration of this process. 

To check convergence of this process, the distance is calculated between each pair 
of intersection points for adjacent iterations. When this distance becomes less 

than the tolerance , an exit is made from INRSCT . Failing to meet the tolerance in 
20 iterations causes an error message to be printed. 

The calling statement for subroutine INRSCT is 

CALL INRSCT(XCURV1 , YCURV1,N1 ,XCtFRV2, YCURV2,N2,XCROSS, YCROSS) 


The input arguments for INRSCT are 
XCURVKNl) x-coordinates for f(x) 

YCURVl(Nl) y -coordinates for y = f(x) 

XCURV2(N2) x-coordinates for x = g(y) 

YCURV2(N2) y-coordinates for g(y) 

N1 number of spline points for f{x) 

N2 number of spline points for g(y) 

The output arguments for INRSCT are 

XCROSS X -coordinate of intersection of two input curves 

YCROSS y -coordinate of intersection of two input curves 


Subroutine ROOT 

Subroutine ROOT finds a root for f(x) y by the bisection method. The function 
f{x) must be defined on the interval [a,b] by the subroutine FUNCT. FUNCT is a dummy 
name; any subroutine name may be used in the calling program. In MERIDL, FUNCT 
is CROSCD. 

The interval is bisected 20 times by ROOT. This gives a resolution of x of 10" 
times the interval length. After the root has been located, tiie difference f(x) - y is 
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checked to see if it is less than TOLERY, If not, a message is printed with details 
on the iterated calculations. 

The calling statement for ROOT is 


CALL ROOT(A,B,Y,FUNCT, TOLERY, X,DFX) 


The input arguments for ROOT are 


A 

B 

Y 

FUNCT 

TOLERY 


a 

b 


external subroutine to calculate f(x) 

tolerance on solution (x is accepted as a root if |f(x) - y | < TOLERY) 
The output arguments for ROOT are 
X value at x such that f(x) = y 

DFX f’(x) 

The calling sequence for FUNCT must be 


FUNCTCX,FX,DFX,) 


These arguments are defined as follows: 
X X 

FX f(x) 

DFX f’(x) 


Subroutine LININT 

Subroutine LININT is a general-purpose subroutine for two-dimensional interpola- 
tion. It is called many times by several subroutines. 

Subroutine LININT locates the point (x^,y^) in a two-dimensional mesh with coor- 
dinates stored in the X and y arrays. Then the value of at x ,y is interpolated 
from the z -array values corresponding to the x and y arrays. Figure 22 is a flow 
chart for LININT. 
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A typical mesh is shown in figure 23. The mesh need not be orthc^onal; but it must 
consist of two sets of lines, with one set running more or less horizontally (never verti- 
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figure S. - Typical tnesh for LININI. 


cal) and the other set running more or less vertically (never horizontal) . The number 
of vertical lines is NX, and I denotes the number of the line (running from 1 at the left 
to NX at the right) . The number of horizontal lines is NY, and J denotes the munber of 
the line (running from 1 at the bottom to NY at the top) . The lines between mesh points 
are assumed to be straight lines. 

At the outset, some value of I and J must be specified, Any value within the pre- 
scribed limits is legal. On repeated calls to LININT, usually the value from the pre- 
ceding call is used. The values of I and J desired are the numbers shown at the bottom 
of figure 23. In this figure 1 = 4, J = 3. The procedure is to check to see on which side 
of each of the four boundary lines the point lies. The variables ABOVE and RIGHT are 
used to indicate the position. ABOVE = -1 indicates the point is below the bottom line, 
ABOVE = 0 the point is between the bottom and top lines, and ABOVE = 1 the point is 
above the top line. Similarly, RIGHT zz -i indicates the point is to the left of the left 
line, RIGHT = 0, the point is between the left and right lines, and RIGHT = 1 the point 
is to the right of the right line. Thus, when ABOVE = RIGHT = 0, we have the correct 
mesh region. If not, I and/or J are incremented by plus or minus 1 to move to the 
proper adjacent region. In this way, eventually the proper region will be found. If the 
point lies entirely outside the region defined, the nearest mesh region to the point 
(^o’^o^ found. In this case, extrapolation is required, and the variable EXTRAP 

is used to indicate the direction of extrapolation. EXTRAP is, dimensioned 2. 

EXTRAP(l) corresponds to ABOVE, and EXTRAP(2) to RIGHT. 

After the proper mesh -point region is found, interpolation between the function val- 
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ues at the four corners is used. The method used is described in appendix D. First, 
the qtiadratic coefficients are calculated by equation (D8) or (DIO). Then, the quadratic 
equation (D7) or (D9) is solved either by the quadratic formula, or by the binomial ex 
pansion, equation (D13), as explained in appendix D. 

The same coding is used to calculate both f^^ and fy. After these values are ob- 
tained, equation (D14) is used to calculate the interpolated value of z^. 

The calling statement for LININT is 

CALL LININTpf,Y,Z, NX,NY,NDIMX,NDIMY, XO, YO, Z0,I, J) 

The input variables for LININT are 

X two-dimensional array of x-coordinates of mesh points 

Y two-dimensional array of y-coordinates of mesh points 

Z two-dimensional array of z-function values at mesh points 

NX number of mesh points in the x-direction 

NY number of mesh points in the y -direction 

NDIMX dimension of X, Y, and Z arrays in the x-direction 

NDIMY dimension of X, Y, and Z arrays in the y -directi on 

XO X -coordinate of interpolation point 

YO y -coordinate of interpolation point 

I initial guess at number of vertical mesh line to the left of (XO, YO) 

j initial guess at number of horizontal mesh line below (XO, YO) 

The output variables for LIMNT are 
ZO interpolated value of Z at (XO, YO) 

I number of vertical mesh line to the left of (XO, YO) 

J number of horizontal mesh line below (XO, YO) 

The internal variables for LININT are 

ABOVE integer, 1 indicates (XO, YO) is above the current I,J region, 0 within, 
and -1 below 

ACB2 ac/b^ (eq. (D13)) 

CASE used to indicate whether FI or F2 is the proper solution 
DISCR discriminate, - 4ac (eq. (D7) or (D9)) 
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.EXTRAP 

array to indicate extrapolation either horizontally or vertically 

FA 

-b/2a (eq. (D7) or (D9)) 

FB 

|/(b^ - 4ac)/4a (eq. (D7) or (D9)) 

FF 


FX 

'x 

FY 

f 


y / 

FI 

^-b - yb^ - ^2Lcjl2di 

F2 

(■b + - 4ac)/2a 

UEX 

indicator, first or second pass through coding to calculate f^^ or 

IN 

new value for I 

JN 

new value for J 


QA a (eq. (D8) or (DIO)) 

QB b (eq. (D8) or (DIO)) 

QC c (eq. (D8) or (DIO)) 

RIGHT integer, 1 indicates X0,Y0 is to the right of the current I, J region, 
0 within, and -1 left 


XOl 

^01 

(see appendix D for notation) 

X02 

^02 

or 

^03 

X13 

^13 

or 

^12 

X21 

^21 

or 

*31 

X42 

^42 

or 

*43 

YOl 

yol 



Y02 

yo2 

or 

yo3 

Y13 

yi3 

or 

yi2 

Y21 

y2i 

or 

ysi 

Y42 

y42 

or 

y43 
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Subroutine SPLINE 


Subroutine SPLINE calculates the first and second derivatives of a cubic spline 
curve at the spline points. SPLINE solves a tridiagonal matrix given in reference 12 to 
obtain the coefficients for the piecewise cubic polynomial function giving the spline fit 
curve- The SPLINE routine is based on the end-point condition that the second deriva- 
tive at either end point is one -half that of the next spline point. 

The calling statement for SPLINE is 

CALL SPLINE(X,y,N, SLOPE, EM) 

The input variables for SPLINE are 
X array of ordinates 

Y array of function values corresponding to X 

N number of X and Y values given 

The output variables for SPLINE are 

SLOPE array of first derivatives 

EM array of second derivatives 


Subroutine SPLINT 

Subroutine SPLINT is used for interpolation, including interpolation of ttie deriva- 
tive, The interpolation is based on the cubic spline curve, with the same end conditions 
as SPLINE . The alternate entry point, SPLENT, allows for Interpolation at a new set 
of points based on the spline curve of the previous SPLINE call. 

The input variables for SPLINT are 

X array of spline point ordinates 

Y array of fmction values at spline points 

N number of X and Y values given 

Z array of ordinates at v^ich interpolated values and derivatives are desired 

MAX number of Z values given 

The output variables for SPLINT are 

YINT array of interpolated function values 

DYDX array of interpolated derivatives 
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Subroutine SLOPES 


Subroutine SLOPES calculates the first derivatives (slopes) based on a parabolic fit 
through three adjacent points. This subroutine is used when the input points may not be 
sufficiently smooth for the SPLINE subroutine. 

The calling statement for subroutine SLOPES is 

CALL SLOPES(X, Y , N, SLOPE) 

The input arguments for SLOPES are 
X array of ordinates 

Y array of fimction values corresponding to X 

N number of X and Y values given 

The output variable for SLOPES is 
SLOPE array of first derivatives 


MAIN DICTIONARY 

The main dictionary for MERIDL is given in this section. It contains the definitions 
of variables for all the principal Subroutines (from INPUT to RVTHTA, see table of con- 
tent^) of the program. The remaiiring subroutines (CONTEN to SLOPES) are of a 
.general-purpose natvire and have their own local dictionaries included in their descripr 
tions. 

All important variables are included in the main dictionary . These include all 
COMMON variables, any dimensioned variables in thp subroutines, and all important 
undimensioned variables. Only locally used undimensioned variables of minor impor- 
tance are not included. ' : 

The names of all dimensioned variables are followed by the variables which deter -r 
mine what the dimensions should be. For example, the three-dimensional array A is 
dimensioned A(4, 100, 101) in the /VARCOM/ COMMON but is listed as A(4, MM, MHTPl) 
in the dictionary; This enables the' user to easily alter the dimension of A (and reduce 
the program's variable storage) if he knows maximum limits to MM and MBTPl for his 
application. See the section STORAGE REQUIREMENTS for further explanation. 

The dictionary also indicates the COMMON blocks or the subroutines in vhich each 
variable is used. Variables in COMMON are used in many subroutines. ' The COMMON 
blocks are listed for each subroutine in table I. 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

A 


MESHO 

left-hand boundary on an in- 
terval of z -coordinate, m 

A(4,MM,MHTP1) 

VARCOM 


coefficients of finite - 
difference equation (A 7) 
for stream function, u 

AO 


COEF 

(eq. (A 8)) 

AA(MHTP1) 


VBDRY 

coefficients, a, of velocity- 
gradient equation ((C9), 
part I) 

AAA(NHUB) 


MESHO 

dummy array of slopes of a 
spline fit of horizontal 
rows in RRAD array 

AAA (100) 


PTBDRY 

dummy array of slopes of 
spline fit curves 

AAA(MHTP1 or MM) 


NEWRHO 

dummy array used in 
SPLINE calls 

AAA(MHTP1 or NOSTAT 
or NSL or 20) 


OUTPUT 

dummy array used in 
SPLINT calls 

AAA(NIN or NOUT) 


LAMDAF 

RVTHTA 

dummy array used in 
SPLINT calls 

AANDK(integer variable) 


TSONIN 

input for TSONIC (ref. 5) 

ALPHA(MM,MHTP1) 

VARCOM 


a at orthc^onal mesh 
points, rad 

ALPHLE 


INDEV 

«le' 

ALPHTE 


INDEV 


ALPSL(MM,NSL) 

SLCOM 


a at points along stream- 
lines where they cross 
vertical mesh lines, rad 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

A LP ST (NSL , NOSTAT) 

STACOM 


ot at points along station 
lines where they cross 
streamlines, rad 

ALVERT(MHTPl) 


OUTPUT 

temporary storage for val- 
ues of a from ALPHA 
array on vertical mesh 
lines, rad 

ANG(NPPP) 


INPLOT 

THKOM 

TSONIN 

angles from meridional 
plane of blade -section mean 
camber lines at blade -section 
input points , rad 

ANGR(11,NBLPL) 


THETOM 

angles with respect to 
radius of hub-shroud lines 
of alternate mesh (fig- 26), 
rad 

ANGZ(11,NBLPL) 


THETOM 

angles with respect to 
z-axis of input blade sec- 
tions at alternate mesh 
points (fig. 26), rad 

AR 

inputt 


input gas constant, R, 
J/(kg)(K) 

ATVEL(MHTPl) 


TVELCY 

coefficients, a, of velocity- 
gradient equation ((A 7), 
part I) at orthogonal mesh 
points along vertical mesh 
lines . 

B 


MESHO 

right-hand boundary on in- 
terval of z -coordinate, m 

BB(MHTPI) 


VBDRY 

coefficients, b, of velocity- 


gradient equation ((C9), 
part I) 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

BDY(4) 


VBDRY 

variable containing words 
INLET and OUTLET used 
in printing error message 

BESP(MM) 


TSONIN 

normal thicknesses of a 
stream channel, at 
MR,RMSP points, printed 
as input for TSONIC 
(ref. 5), m 

BETA(MM,MHTP1) 

VARCOM 


j3 at orthogonal mesh 
points, rad 

BETAI 


TSONIN 

at blade leading edge 
(input to TSONIC, ref, 5), 
deg 

BETAO 


TSONIN 

at blade trailing edge 
(input to TSONIC, ref. 5), 
deg 

BETSL(MM,NSL) 

SLCOM 


/3 at points along stream- 
lines where they cross 
vertical mesh lines, rad 

BETST(NSL , NOSTAT) 

STACOM 


^ at points along station 
lines uiiere they cross 
streamlines, rad 

BLDAT (integer variable) 


TSONIN 

input for TSONIC (ref, 5) 

BLDCRD 


INDEV 

true blade chord along a 
horizontal me^ line, m 

BLDEV 


INDEV 

deviation angle, corrected 


for blockage, where a hor- 
izontal mesh line intersects 
trailing edge 

deg 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


BLINC 

BLNK 

BRNG 

BTABLD 

BTFSLE 

' i'’ ' ' ' 

BTFSTE 

BTH(MM, MHTPl) CALCON 

BTHLE 

BTHSL 

BTHTE 


ENDEV incidence angle, corrected 

for blockage, where a hor- 
izontal mesh line intersects 
leading edge 

deg 

INPLOT blank word used in some 

plot titles 

INPLOT bottom or lower range of 

SVPLOT values on a given plot 

INDEV blade mean camber line angle 

at leading or trailing edge, 
rad 

INDEV upstream flow angle, 

extrapolated linearly along 
a horizontal mesh line to 
blade leading edge, rad 

INDEV ‘ downstream flow angle, ^p 

extrapolated linearly along 
a horizontal mesh line back 
. to blade trailing edge, rad 

B at orthogonal mesh 
points, rad (These values 
are corrected for total 
pressure loss through the 
blade row.) 

INDEV Bj^, rad 

TSONIN B along a streamline, rad 

INDEV B^g, rad 
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Variable name 
BTVEL(MHTPl) 


Cl 

C2 

CAMP(MM, MHTPl) 

CAMPLE 

CAMPTE 

CBETA 

CCA(MHTPl) 

CCB(MHTPl) 

CHANGE 

CHFL 

CHLIM 


COMMON Subroutine 
block 

TVELCY 


COEF 

COEF 

VARCOM 

INDEV 

INDEV 

TVELCY 

VBDRY 

VBDRY 

SOR 

TVELCY 

TVELCY 


Description and comments 

coefficients, b, of velocity- 
gradient equation ((A7), 
part I) at orthogonal mesh 
points along vertical mesh 
lines 

Cj (eq. (A8)) 

C 2 (eq. (A8)) 

cos(a - <p) at orthogonal 
mesh points 

cos{a - 

COS(ff - 

cos j8 

coefficients, c„, of 
velocity -gradient equation 
((C9), parti) 

coefficients, Cj^, of 
velocity -gradient equation 
((C9), parti) 

change in value of stream 
function at a mesh point 
during an overrelaxation 
iteration 

choking mass flow for a 
vertical orthogonal mesh 
line, kg/sec 

minimum choking mass flow 
per passage, kg /sec 
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Variable name 
CHORD F 

COSBTA 

CP 

CPHI(MM, MHTPl) 

CPHILE 
CPHITE 
CPTIP (MHTPl) 

CTVEL (MHTPl) 


CURV(MM, MHTPl) 

CURVH 

CURVHI 

CURVHO 


COMMON Subroutine 
block 

TSONIN 

VBDRY 

CALCON 

CALCON 

INDEV 

INDEV 

TVELCY 

TVELCY 


VARCOM 

VBDRY 

CALCON 

CALCON 


Description and comments 

length of blade section along 
streamline in m-direction 
(input to TSONIC, 
ref. 5), m 

cos jS 

Cp, J/(kg)(K) 

cos(<p) at orthogonal mesh 
points 

cos(<pjg) 

cos(<Pte) 

2CpTI at orthogonal mesh 
points along vertical mesh 
lines, (N)(m)/kg 

coefficients, c, of velocity- 
gradient equation ((A7), 
part I) at orthogonal mesh 
points alor^ vertical mesh 
lines 

1/r at orthogonal mesh 

V/ 

points, 1/m 

CURVHI or CURVHO, 1/m 

curvature of hub at point 
where it is intersected by 
first (upstream) vertical 
orthogonal mesh line, 1/m 

cxmvature of hub at point 
where it is intersected by 
last (downstream) vertical 
orthogonal mesh line 1/m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

CUEVSL(MM,NSL) 

SLCOM 


1 /r^ at points along 
streamlines vrtiere they 
cross vertical orthc^onal 
mesh lines, 1/m 

CURVST(NSL , NOSTAT) 

STACOM 

t 

1/r^ at points along sta- 
tion lines where they cross 
streamlines, 1/m 

CURVT 


VBDRY 

CURVTI or CURVTO, 1/m 

CURVTI 

CALCON 


curvature of shroud at point 
where it is intersected by 
first (upstream) vertical 
orthogonal mesh line, 1/m 

CURVTO 

CALCON 


curvature of shroud at point 
where it is intersected by 
last (downstream) vertical 
orthc^onal mesh line, 1/m 

D1 


COEF 

dj (eq. (A8)) 

D2 


COEF 

dg (eq. (A8)) 

DALDS(MM) 


OUTPUT 

0(y/0s at mesh points along 
horizontal mesh lines, 
rad/m 

DALDT(MM,MHTP1) 


OUTPUT 

0a/0t at orthogonal mesh 
points, rad/m 

DALVER(MHTPl) 


OUTPUT 

0o/0t at mesh points along 
vertical mesh lines, rad/m 

DBL 


TSONIN 

one -half of tangential blade 


thickness (in radians) at 
intersection of a stream- 
line with blade leading or 
trailing edge 
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Variable name 


COMMON 

block 


Subroutine 


Description and comments 


DCHANG 

L 

DEGRAD 

DEL 

DELCH 

DELM 

DELMAX 

DELR 

DELRHO(MM, MHTPl) 
DELRNG 

delrth 


COEF 


OUTPUT 

INDEV 

INPLOT 


OUTPUT 


TSONIN 

VBDRY 

TVELCY 

MESHO 

PTBDRY 

OUTPUT 


VARCOM 


INPLOT 


INPLOT 


maximum value of change in 
estimated values of 
9(rVg)/0r at a mesh point 
between any two outer iter- 
ations, m/sec 

conversion constant from 
radians to degrees 

increment between plotted 
stream function or radius 
points 

1 percent of average meri- 
dional chord length of 
blade, m 

increment of meridional dis- 
tance, m 

increment for at each 

iteration to satisfy con- 
tinuity, m/sec 

increment in r -coordinate, m 


difference in density, be- 
tween suction and pressure 
surfaces, at orthogonal 
mesh points, kg/m 

maximum range of points on 
a plot in either bottom-top 
or left-right directions 

plotted blade spacing of a 
blade section, m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DELT 


INPLOT 

tangential blade thickness, m 

DELZ 


MESHO 

PTBDRY 

THETOM 

OUTPUT 

increment in z -coordinate, 
m 

DENS 


TVELCY 

Pi or pQ> 

DENTOL 


TSONIN 

density tolerance (input for 
TSONIC, ref. 5) 

DFDM(MM,MHTP1) 

VAROOM 


-B cos /3 [d(rV^)/dm] at 

orthogonal mesh points 
(eq. (4)), ra/sec 

DFDS(MM) 


BLDVEL 

0(rVg)/ds at mesh points 
along horizontal mesh 
lines, m/sec 

DFDT(MM,MHTP1) 


BLDVEL 

9(rV^)/8t at orthogonal 
mesh points, m/sec 

DFVERT(MHTPl) 


BLDVEL 

3(rVg)/9t at mesh points 
aloi^ vertical mesh lines, 
m/sec 

DIDR 


NEWRHO 

ai/9r, m/sec ^ 

DIDS(MM,MHTP1) 


NEWRHO 

dl/ds at orthogonal mesh 
2 

points, m/sec 

DIDT(MHTPl) 


NEWRHO 

0I/0t at mesh points along 
vertical mesh lines, 
m/sec ^ 

DIST(NPPP) 


THIKOM 

TSONIN 

distances on meridional 
plane along lines connecting 
input blade -section points 
(ZBL,RBL), m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DISTLE 


INDEV 

distance along horizontal 
mesh line from leading 
edge of blade for which a 
blade shape correction is 
made for incidence, m 

DISTTE 

' 

INDEV 

distance aloi^ horizontal 
mesh line from trailii^ 
edge of blade for which a 
blade shape correction is 
made for deviation, m 

DLAM 


TVELCY 

change in rV^ between 
points on vertical mesh 
lines, m /sec 

DLDU(MM,MHTP1) 

* r ■ - 

>■ i 

VARCOM 


gradients of rV^ with re- 
spect to stream function, 

d(rVj/du, at orthogonal 

“ 2 
mesh points, m /sec 

(This array is only defined 

and used in regions outside 

of blade row. ) 

DMAX 


COEF 

maximum calculated'value of 
9(rV^)/9r at any mesh 
point, m/sec 

DMD2 


PTBDRY 

expansion distance on 
smaller range of a plot 

DMIN 


COEF 

minimum calculated value of 
9(rV^)/0r at any mesh 
point, m/sec 

DNEW 

INPUTT 


input damping factor on cal- 
culation of 0(rV^)/9r 
within blade row from outer 
iteration to outer iteration 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DPDR 


NEWRHO 

ap'Var, N/m^ 

DPDS(MM,MHTP1) 


NEWRHO 

9p”/3s at orthc^onal mesh 
points, N/m^ 

DPDT(MHTPl) 


NEWRHO 

9p”/9t at mesh points along 
vertical mesh lines, N/m^ 

DPREL 


TVELCY 

chaise in p” between 
points on vertical mesh 
lines, N/m^ 

DRBL 


TSONIN 

tangential blade thickness 
at intersection of a meri- 
dional streamline with 
blade leadii^ or trailing 
edge, m 

DRBTH 

■ 

THIKOM 

interpolated value of tangen- 
tial blade thickness, m 

DRTHBL(NPPP ,NBLPL) 


THIKOM 

TSONIN 

tangential blade thickness at 
ZBL,RBL input points, m 

DTDRLE 


INDEV 

(90/0r)jg, rad/m 

DTDROM 


THETOM 

90/3r on orthogonal mesh, 
rad/m 

DTDRTE 


INDEV 

(9e/9r)^g, rad/m 

DTDS(NPPP) 


THIKOM 

TSONIN 

90/9s, rad/m 

DTDSFL 


INDEV 

(0e/0s)^^ at leading or 


trailing edge, rad/m 
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Variable name 

COMMON 

block 

Subroutine ■ 

Description and comments 

DTDSLE(MHTPl) 


INDEV 

00/08 of mid -channel flow 
surface at points where 
horizontal mesh lines cross: 
leading edge of blade, 
rad/m 

DTDSTE(MHTPl) 


INDEV 

00/08 of mid -channel flow 
surface at points where 
horizontal mesh lines cross 
trailing edge of blade, 
rad/ra 

DTDTLE 


INDEV 

(00/0t)jg, rad/m 

DTDTTE 


INDEV 

(00/0t)|.g, rad/m 

DTDZLE 


INDEV 

(00/0z)jg, rad/m 

DTDZOM 


THETOM 

00/0Z on orthogonal mesh, 
rad/m 

DTDZTE 


INDEV 

(0 0/0 z)jg, rad/m 

DTHDM(NPPP) 


INPLOT 

00/0S' used to estimate 
blade angle to calculate 
tangential blade thickness 




from TNBL, rad/m 

DTHDR(11,NBLPL) 

INDCOM 


00/0T on alternate blade 
mesh (fig. 26), rad/m 

DTHDS(MM, MHTPl) 

CALCON 


00/0S at orthogonal mesh 
points, rad/m 

DTHDSP(11,NBLPL) 


THETOM 

00/0 s’ on alternate blade 
mesh (fig. 26), rad/m 

DTHDT (MM, MHTPl) 

CALCON 


00/0t at orthogonal mesh 
points, rad/m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

DTHDTP(11,NBLPL) 


THETOM 

BB/dV on alternate blade 
mesh (fig. 26), rad/m 

DTHDZ(11,NBLPL) 

ENDCOM 


BB/Bz on alternate blade 
mesh (fig. 26), rad/m 

DTIP 


TVELCY 

change in T! between points 
on vertical mesh lines, K 

DTPP 


TVELCY 

change in T*’ between points 
on vertical mesh lines, K 

DTVEL(MHTPl) 


TVELCY 

coefficients, d, of velocity - 
gradient equation ((A7), 
part I) at mesh points along 
vertical mesh lines 

DUDS(MM) 


NEWRHO 

9u/9s along horizontal mesh 
lines, 1/m 

DUDT(MHTPl) 


NEWRHO 

9u/9t at mesh points along 
vertical mesh lines, 1/m 

DVDRT 


COEF 

updated estimate of 


9(rVg)/9r at a mesh point, 
m/sec 


DVTHDR{MM, MHTP 1) 

COEF 

9(rVg)/9r at orthogonal 
mesh points, m/sec 

DWMDM(MM, MHTPl) 

TVELCY 

dW^/dm at orthogonal 
mesh points, 1/sec 

DWMDS(MM) 

TVELCY 

9W^/9s along horizontal 
mesh lines, 1/sec 

DWMDT(MM , MHTP 1) 

TVELCY 

9W^/9t at orthogonal mesh 
points, 1/sec 

DWMVER(MHTPl) 

TVELCY 

9Wj^/9t along vertical mesh 
lines, 1/sec 
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Variable name 
DWTDM(MM,MHTP1) 

DWTDS(MM) 

DWTDT(MM , MHTP 1) 

DWTVER(MHTPl) 

DYDX(IO) 

DYDX(MM or MHTPl) 
DYDX(NBLPL) 
DYDX2(MM or MHTPl) 
DYDX2(NBLPL) 
EM(NIN or NOUT) 


COMMON Subroutine 
block 

TVELCY 

TVELCY 

TVELCY 

TVELCY 

INPUT 

PRECAL 


THETOM 


PRECAL 


THETOM 


TIPF 

RHOIPF 

RHOOPF 

LAMDAF 

RVTHTA 


Description and comments 

dWg/dm at orthogonal mesh 
points, 1/sec 

9W^/3s along horizontal 
mesh lines, 1/sec 

aWg/at at orthogonal mesh 
points, 1/sec 

aWg/at at mesh points along 
vertical mesh lines, 1/sec 

temporary storage for 
gradients 

temporary storage for de- 
rivative of several SPLINE 
and SPLINT calls 

temporary storage for de- 
rivative of several SPLINE 
calls 

temporary storage for sec- 
ond derivatives calculated 
by SPLINE calls 

temporary storage for sec- 
ond derivatives of several 
SPLINE calls 

second derivatives of spline- 
fit curves 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

EOP 


INPLOT 

MEPLOT 

SLPLOT 

SVPLOT 

end of plot indicator 
(EOP = 1.0) 

ERROR 


SOR 

maximum absolute value of 
chaise in u at any point 
for an overrelaxation iter- 
ation 

ERSOR(interger variable) 


TSONIN 

input for TSONIC (ref. 5) 

ETVEL(MHTPl) 


TVELCY 

coefficients, e, of velocity - 
gradient equation ((A 7), 
part I) at mesh points 
aloi^ vertical mesh lines 

EXPON 

CALCON 


i/(y - 1) 

EXTRAP 


INDEV 

distance along horizontal 
mesh line from blade lead- 
ing or trailing edge to first 
mesh point outside of 
blade, m 

FCHANG 


BLDVEL 

maximum value of chaise in 
Fj. at any mesh point be- 
tween any two outer itera- 
tions 

FLFR(NSL) 

INPUTT 


input values of stream func- 
tion designating stream- 
lines along urtiich output is 
to be printed 

FMAX 


BLDVEL 

maximum new predicted 
value of F^ at any mesh 
point dimii^ an outer iter- 
ation 
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' Variable name 
FMIN . 

PNEW 

FR(MM,MHTP1) 

' . 'a ^ A ‘ 

FRAG , 

FRT 

FST(MM,MHTP1) 

FTinEL(MHTPl) 

FVERT(MHTPl) 

GAM 

GRAD(lOl) 

■ ' .V",;’ • 

GRAD(MHTPl) 


COMMON Siibroutine 
block 

BLDVEL 

INPUTT 

VARCOM 

VBDRY 

BLDVEL 

BLDVEL 

TVELCY 

BLDVEL 

INPUTT 

INPLOT 

LOSSOM 


Description and comments 

minimum new predicted 
value of Fj. at any mesh 
point during an outer iter- 
ation 

input dampir^ factor on cal- 
culation of Fj, from outer 
iteration to outer iteration 

F^ at orthogonal mesh 
T 2 

points (eq. (A4)), m/sec 

stream function, u, at mesh 
point on vertical boundary 

predicted value of F^, at a 
mesh point 

rVfl at orthogonal mesh 

y 2 

points, m /sec 

coefficients, f, of velocity- 
gradient equation ((A7), 
part I) at mesh points 
along vertical mesh lines 

temporary storage for val- 
ues of rVg from FST 
array on vertical mesh 
lines, m /sec 

input, V 

dummy array for deriva- 
tives calculated by SPLINT 
calls in INPLOT 

dummy array of derivatives 
calculated in SPLINT call 


75 



/ 


Variable name 

COMMON 

block 

Subroutine 

Description and comments 

HI 


COEF 

hj (eq. (A8), fig. 24) 

H2 


COEF 

h2(eq. (A8), fig. 24) 

H3 


COEF 

hg (eq. (A8), fig. 24) 

H4 


COEF 

h^ (eq. (A8), fig. 24) 

IDEBUG 

ENPUTT 


integer input indicating mul< 
tiple of outer iterations at 
which debug output is 
printed 

lEND 

Blank 


integer indicator of stage of 


solution to which program 
has proceeded: 
lEND = -1 , prior to con- 
vergence of subsonic 
solution 

lEND = 0, between con- 
vergence of subsonic 
solution and beginning 
of transonic solution 
lEND = 1 , during first 
transonic solution with 
all velocities smaller 
than chokii^ -mass -flow 
solution 

lEND = 2, during second 
transonic solution with 
all velocities greater 
than choking -mass -flow 
solution 

VBDRY int^er (1 or 3) to identify 

proper word in BDY array 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

ILE(MHTPl) 

CALCON 


vertical mesh line numbers 
of first mesh point inside 
blade region at leading 
edge 

ILS(NSL) 

SLCOM 


vertical mesh line number 
of first intersection of a 
streamline with a vertical 
mesh line inside blade re- 
gion at leading edge 

IMESH 

\ 

INPUTT 


integer input indicating the 
multiple of outer itera- 
tions at which major out- 
put is printed for orthog- 
onal mesh 

IND 


VBDRY 

TVELCY 

integer which indicates 
solution procedure in 
CONTIN 

INTVL 


TSONIN 

input for TSONIC (ref. 5) 

IPLOT 

INPUTT 


integer input indicating 
multiple of outer itera- 
tions at which major out- 
put is plotted on micro- 
film 

IPLT 


MEPLOT 

indicates which of two plots 
is being made 

ISUNE 

INPUTT 


integer input indicating mul- 
tiple of outer iterations at 
which major output is 
printed along streamlines 


/ 


/ 
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Variable name 

COMMON 

block 

Svtbroutine 

Description and comments 

ISTATL 

mPUTT 


integer input indicating mulf. j 
tiple of outer iterations at .• 
which major output is 
printed along station lines' 

ISUPER 

INPUTT 


integer input indicating 
whether only subsonic, or 
both subsonic and super* 
sonic, solutions of 
velocity -gradient, equation 
are to be calciUated 

ITE(MHTPl) 

CALCON 


vertical mesh line numbers 
of last mesh point inside 
blade region at trailing 
edge 

ITER 

Blank 


outer iteration counter , in- 
cremented by 1 at beginning 
of each outer iteration 

ITS(NSL) 

SLCOM 


vertical mesh line number of 
last intersection of a 
streamline with a vertical 
mesh line inside blade re- 
gion at trailing ec^e 

ITSON 

INPUTT 


integer input indicating mul- 
tiple of outer iterations at 
which information is 
printed as input for TSONIC 
program (ref. 5) 

JZ 


VBDRY 

TVELCY 

integer used to indicate to 
CONTIN that subsonic 


(JZ = 1) or supersonic 
(JZ = 2) solution is desired 
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Variable name 

K(MM,MHTP1) 
(real variable) 

COMMON 

block 

VARCOM 

Subroutine 

Description and comments 

(eq. (A9)) at orthogonal 
mesh points 

KNEW(real variable) 


COEF 

updated value of k^ (eq. (A 9)) 
at a mesh point 

LAMBDA (MHTPl) 
(real variable) 


VBDRY 

TVELCY 

X for mesh points aloi^ 
vertical mesh lines, 
m^/sec 

LAMBDO(MHTPl) 
(real variable) 


TVELCY 

(rVg) , for mesh points 
' ^'0 

along vertical mesh lines, 
m^/sec 

LAMDAI(real variable) 


PRECAL 

LOSSOM 

X, m /sec 

LAMIN(NIN) 
(real variable) 

INPUTT 


input values of X at points 
along line from hub to 
shroud on which upstream 
flow conditions are given, 
m^/sec 

LAMOUT(NOUT) 
(real variable) 

INPUTT 


input values of at 

points along line from 
hub to shroud on which 
' downstream flow condi- 
tions are given, m /sec 

lamvt 

INPUTT 


input integer (0 or 1) indi- 
cating whether upstream 
and downstream v^irl (0) 
or tangential velocity (1) 
is given as input 

LMAX(real variable) 


SOR 

maximum value of RATIO 


over all mesh points 
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Variable name 
LMIN(real variable) 

LOG 

LOSOUT(NOUT) 
(real variable) 

LRNG(real variable) 
LSFR 

LTPL 

MARK 


COMMON Subroutine 
block 

SOR 

VBDRY 


INPUTT 


INPLOT 

SVPLOT 

INPUTT 


mPUTT 


CROSCM 


Description and comments 

minimum value of RATIO 
over all mesh points 

integer (1 or MM) indicatii^ 
vertical mesh line number 
for which VBDRY is called 

input fraction of absolute 
total pressime loss, at 
points along line from hub 
to shroud on which down- 
stream flow conditions are 
given 

left-most point of range of a 
plot 

input integer (0 or 1) indi- 
cating whether upstream 
and downstream flow condi- 
tions are input as a function 
of stream function (0) or 
radius (1) 

input integer (0 or 1) indi- 
catii^ whether downstream 
total pressure (0) or frac- 
tional loss of stagnation 
pressure (1) is given in 
input 

marker in MESHO and 
CROSCD to indicate if 
CROSCD is being called 
for the first time 
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Variable name 
MARK(NOSTAT) 

i ' ' . ‘ i 

MBI 

MBL(NPPP,NBLPL) 
(real variable) 

MBLD 

MBO 

MCT 

-.<• ■ • 

MHT 


COMMON Subroutine 
block 

OUTPUT 


INPUTT 


INPLOT 


SVPLOT 


INPUTT 


OUTPUT 


INPUTT 


Description and comments 

integers between 1 and 4 in- 
dicating whether output 
station lines are outside 
blade, within blade, or on 
leading or trailing edge 

input number of vertical 
mesh lines from left 
boundary of orthogonal 
mesh (ZOMIN) to first 
point of mesh -size change 
(ZOMBI) 

s' -coordinate, corresponding 
to ZBL and RBL, used for 
plotting input blade sec- 
tions, m 

number of suction -surface 
or pressvire -surface veloci- 
ties on a plot 

input total number of verti- 
cal mesh lines from left 
boundary of orthogonal 
mesh (ZOMIN) to point of 
second mesh -size chaise 
(ZOMBO) 

integer (1 or 2) indicating 
whether a compressor (1) 
or a turbine (2) is being 
analyzed 

input total number of hori- 
zontal mesh spaces from 
hub to shroud of orthogonal 
mesh; maximum of 100 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

MHTPl 

CALCON 


MHT + 1 

MLESP(5) 
(real variable) 


TSONIN 

m-coordinates of blade sur- 
face spline points near 
leading edge of a blade 
section, printed to make a 
layout to obtain input for 
TSONIC (ref. 5), m 

MM 

INPUTT 


input total number of verti- 
cal mesh lines from left to 
right boimdaries of orthog- 
onal mesh (ZOMIN to 
ZOMOUT) , maximum of 
100 

MMMl 

CALCON 


MM - 1 

MR(MM)(real variable) 


TSONIN 

m-coordinates of points de- 
fining a stream channel, 
printed as input for 
TSONIC (ref. 5), m 

MSFL(real variable) 

INPUTT 


input total mass flow through 
entire circumferential an- 
nulus of machine, kg/sec 

MSL(MM,NSL) 
(real variable) 

SLCOM 


m-coordinates of points 
along streamlines where 


they cross vertical mesh 
lines, m (Origin of 
m -coordinate along a 
streamline corresponds to 
point where z = 0 along 
streamline.) 
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Variable name 


MSP (MM) (real variable) 


MST(NSL,NOSTAT), 
(real variable) ’ 


MTEM(NOSTAT) 
(real variable) 

MTESP(5) 

(real variable) 

NBL 

NBLPL 

NBLPTS 


COMMON . Subroutine 
block 

TSONIN 

STACOM 

OUTPUT 

TSONIN 

INPUTT 

INPUTT 

TSONIN 


Description and comments 

m-coordinates of blade sur- 
face spline points, given as 
input for TSONIC 
(ref. 5), m 

m-coordinates of points 
where station lines cross 
streamlines, m (Origin of 
m-coordinates aloi^ a 
streamline corresponds to 
point where z = 0 along 
streamline.) 

temporary storage for val- 
ues of m-coordinate for 
MST array, m 

m-coordinates of blade sur- 
face spline points near 
trailing edge of a blade sec- 
tion, printed to make a lay- 
out to obtain input for 
TSONIC (ref. 5), m 

input number of blades in 
blade row 

number of input blade planes 
or blade sections on which 
data (ZBL, RBL, THBL, 
TNBL) are given to de- 
scribe mean flow surfoce 
and blade thickness, maxi- 
mum of 50 

number of spline points on 
suction or pressure sur- 
face of a blade section 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

NCOUNT 


VBDRY 

TVELCY 

total number of iterations 
or attempts at satisfying 
velocity -gradient equation 

NHUB 

INPUTT 


number of input data points 
in ZHUB and RHUB arrays, 
maximum of 50 

NIN 

INPUTT 


number of input data points 
in upstream arrays of 
flow properties {SFIN, 
RADIN, TIP, PRIP, 

LA MIN, VTmN), maxi- 
mum of 50 

NOSTAT 

INPUTT 


input number of hub-shroud 
stations (located by coor- 
dinates in ZHST and ZTST) 
at which output is desired, 
maximum of 50 

NOUT 

INPUTT 


number of input data points 
in downstream arrays of 
flow properties (SFOUT, 
RADOUT, PROP, 

LOSOUT, LAMOUT, 
VTHOUT) , maximum of 50 

NPPP 

INPUTT 


number of input data points 
per blade section or blade 
plane in ZBL, RBL, 
THBL, and TNBL arrays, 
maximum of 50 

NREAD 

Blank 


integer number of input 


tape-reading unit of com- 
puter which is runnii^ 
MERIDL 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

NRSP 


TSONIN 

input for TSONIC (ref. 5) 

NSL 

INPUTT 


input number of streamlines 
from hub to shroud (desig- 
nated by values in FLFR) 
at which output is desired, 
maximum of 50 

NTIP 

INPUTT 


number of input data points 
in ZHP and RTIP arrays, 
maximum of 50 

NWRIT 

Blank 


integer number of output 
tape -writing unit of com- 
puter which is running 
MERIDL 

OMEGA 

INPUTT 


input rotational speed, co, 
rad/sec 

ORF 


SOR 

overrelaxation factor 

ORF 


TSONIN 

overrelaxation factor (input 
for TSONIC, ref. 5) 

ORFMAX 


SOR 

current estimate for maxi- 
mum value of ORF calcu- 
lated using LMAX 

ORFMIN 


SOR 

current estimate for mini- 
mum value of ORF calcu- 
lated using LMIN 

PHI i 


OUTPUT 

(p, deg 

PITCH 

CALCON 


27T/NBL, rad 

PLOSS(MM,MHTPl) 

CALCON 


fractional loss of relative 


total pressure at orthog- 
onal mesh points 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

PLOSSL 


TSONIN 

fractional loss of relative 
total pressure at a 
ZSL,RSL point along a 
streamline 

PLOSTE 


INDEV 

fractional loss of relative 
total pressure at blade 
trailing edge 

PLTX(lOl) 


INPLOT 

temporary storage of x-plot 
coordinates of many 
arrays in INPLOT 

PLTY(lOl) 


INPLOT 

temporary storage of y-plot 
coordinates of many 
arrays in INPLOT 

PPTHBL(NPPP , NBLPL) 


INPLOT 

values of r0 for pressure 
surface of adjacent blade , 
used for plotting input 
blade sections, m 

PRATI0(MHTP1) 


LOSSOM 

p” /fp"\ for each hori- 

‘^0/V‘^o/ideal 

zontal mesh line down- 
stream of blade 

PREL(MM or MHTPl) 


NEWRHO 

TVELCY 

p” at mesh points along 

horizontal or vertical mesh 
2 

lines, N/m 

PRELN 


TVELCY 

new p”, N/m^ 

PRINP 


PRECAL 

LOSSOM 

p’, N/m^ 

PRIP(NIN) 

INPUTT 


input, p!, at points along 
line from hub to shroud on 
which upstream flow con- 
ditions are given, N/m^ 
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Variable name 
PROP(NOUT) 

PTHBL(NPPP , NBLPL) 
R1 

R2 

RADIN(NIN) 

RADOUT(NOUT) 

RATIO 

RBL(NPPP, NBLPL) 


COMMON . Subroutine 
block 

INPUTT 

INPLOT 

MESHO 

MESHO 

INPUTT 

INPUTT 

SOR 

INPUTT 


Description and. comments 

input, p^, at points along 
line from hub to shroud on 
which downstream flow 

2 

conditions are given, N/m 

values of rd for pressure 
surface, used for plotting 
input blade sections, m 

r -coordinate of intersection 
of line (T), fig. 8, with 
upper horizontal mesh 
line, m 

r-coordinate of intersection 
of line (D, fig. 8, with 
upper horizontal mesh 
line, m 

input r-coordinates of points 
along line from hub to 
shroud on which upstream 
flow conditions are 
given, m 

input r-coordinates of points 
along line from hub to 
shroud on which down- 
stream flow conditions are 
given, m 

^m+ly^ for use in eqs. 

(B2) and (B3) of ref. 11 

input array of r-coordinates, 
corresponding to ZBL,‘ of 
points describing mean 
blade surface, m 
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Variable name 
RBLTEM(NBLPL) 

RBRNG 

RCARB(MHTPl) 

RCURV 

REDFAC 

REFR 

REFSL 

REFZ 


COMMON Subroutine 
block 

OUTPUT 

PLTCOM 

TVELCY 

CROSCD 

INPUTT 

CROSCM 

CROSCM 

CROSCM 


Description and comments 

temporary storage for values 
in RLE and RTE arrays, m 

r -coordinate of bottom 
boundary of a plot of meri- 
dional plane or orthogonal 
mesh, done in MEPLOT, m 

p cos(a - (?j)rB along a 
vertical mesh line (eq, (5)), 
kg/m^ 

r -coordinate of horizontal 
mesh line at input 
z-coordinate, m 

input factor used to reduce 
mass flow (MSFL) in order 
to assure subsonic flow 
throughout flow passage 

reference r -coordinate in 
MESHO from which 
orthogonal mesh is extend- 
ed by addition of another 
’’link,” m 

reference slope in MESHO 
of vertical link being ex- 
tended from a known 
orthogonal mesh point to a 
new mesh point 

reference z-coordinate in 
MESHO from which 
orthogonal mesh is extend- 
ed by addition of another 
’’link,” m 
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Variable name 
RELER 

RELTOP(NOUT) 

REPEAT 

RHIN 

RH0(MM,MHTP1) 
RH0AV(MM,MHTP1) . . 

RHOIP(MHTPl) 

RHOIP(NIN) 

RHOIP 


COMMON Siibroutine 
block 

NEWRHO 


PRECAL 

LOSSOM 

VBDRY 

TVELCY 


CALCON 


VARCOM 

VARCOM 


VBDRY 

TVELCY 

RHOIPF 


INIT 


Description and comments 

majcimum relative change 
in W at any mesh point 
between two outer iter- 
ations 

Pj'/Pi' at h«b-3hroud input 
points downstream of 
blade row 

logical variable indicatii^ 
that velocity -gradient so- 
lution should be repeated 
with new values of TIPBDY, 
RHOIP, and LAMBDA 

r -coordinate of intersection 
with hub profile of line on 
which upstream flow con- 
ditions are given, m 

p, at orthogonal mesh 

O 

points, kg/m 

average density across flow 
channel from suction sim- 
face to pressure surface, 
at orthogonal mesh points, 
kg/m^ 

pJ for mesh points along 
vertical mesh lines, 

1^/m^ 

pi at input points of up- 
stream flow conditions, 
kg/m3 

p! at hub, kg/m® 


89 



Variable name 

COMMON 

block 

Subroutine 

Description and comments 

A 

RHOIP 


TSONIN 

p! for a streamline, kg/m^, 
input for TSONIC (ref. 5) 

RHOL 


BLDVEL 

Pj, kg/m^ 

RHOOP(MHTPI) 


TVELCY 

p' for mesh points along 
vertical mesh lines, kg/m 

RHOOP(NOUT) 


RHOOPF 

p! at input points of down- 
stream flow conditions, 
kg/m^ 

RHOSL 


TSONIN 

p at a ZSL, RSL point along 

3 

a streamline, kg/m 

RHOT 


BLDVEL 

Ptj.. kg/m^ 

RHOUT 

CALCON 


r -coordinate of intersection 
with hub profile of line on 
which downstream flow con- 
ditions are given, m 

RHOW 


VBDRY 

pW, kg/(m2)(sec) 

RHPLT(IOO) 

PLTCOM 


r -coordinates used for plot- 
ting hub profile, RHUB, in 
MEPLOT, m 

RHUB(NHUB) 

INPUTT 


input r-coordinates of points 
defining hub or bottom 
boundary of flow chan- 
nel, m 

RIL0M(MHTP1) 


LAMDAF 

radii for spline fit of 
stream function gainst 
radius 

RLE(NBLPL) 

CALCON 


r-coordinates of input blade 
section points (from RBL) 
definii^ leading edge of 
blade, m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

RLEIl 

CALCON 


r -coordinate of intersection 
of leading edge of blade 
with hub profile, m 

RLEOM(MHTPl) 

CALCON 


r -coordinates of intersec- 
tions of horizontal mesh 
lines with blade leading 
edge, m 

RLEP 


TSONIN 

r -coordinate of point near 
leading edge of blade sec- 
tion along meridional 
streamline, m 

RLESL 


TSONIN 

r -coordinate of intersection 
of a streamline with lead- 
ii^ edge of blade , m 

RLET 

i i ' ■ • 

CALCON 


r -coordinate of intersection 
of leading edge of blade 
with shroud profile, m 

RLINE 


CROSCD 

r -coordinate on straight- 


line vertical orthogonal 
link at input 
z-coordinate, m 


RLPLT(IOO) 

• 

PLTCOM 


r -coordinates used for plot- 
ting blade leading edge , 
RLE, in MEPLOT, m 

RMEAN 



VBDRY 

mean radius r^.p)/2, m 

RMR , 



MESHO 

CROSCD 

RCURV - RLINE in 
CROSCD, m 

RMSP(MM) 



TSONIN 

r -coordinates of points de- 
fining a stream channel, 
printed as input for 
TSONIC (ref, 5), m 
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Variable name 
ROLOM(MHTPl) 
ROM(MM,MHTPl) 
ROTI(MM or MHTPl) 

RPC(11,NBLPL) 
RRAD(NHUB, MHTPl) 

RRNG 

RRTHBL(NPPP ,NBLPL) 

RSL(MM,NSL) 

RSLTEM(NSL) 

RSPLT(IOO) 


COMMON Sijbroutine 
block 

RVTHTA 

CALCON 

/ 

NEWRHO 

INDCOM 

MESHO 

INPLOT 

SVPLOT 

INPLOT 

SLCOM 

OUTPUT 

PLTCOM 


Description and comments 

radii for spline fit of stream 
function against radius 

r -coordinates of orthogonal 
mesh, m 

rothalpy, I, at mesh points 

along horizontal or vertical 
2 2 

mesh lines, m /sec 

r -coordinates of alternate 
mesh (fig. 26) 

r -coordinates of points along 
radial lines from input 
points on hub profile to 
shroud profile, m 

right-most point of range of 
a plot 

values of r0 coordinate of 
blade mean camber line of 
adjacent blade, used for 
plotting input blade sec- 
tions, m 

array of r -coordinates of 
points along streamlines 
where they cross vertical 
mesh lines, m 

temporary storage for cal- 
culated values to be put 
into RSL array, m 

r -coordinates used for plot- 
ting shroud profiii., RTIP, 
in MEPLOT, m 
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Variable name 
RST(NSL,NOSTAT) 

RTE(NBLPL) 

RTEH 

RTEM(IO) 

RTEM(MM) 

RTEM(NBLPL) 

RTEM(MHTP1 or 
NOSTAT or 20) 

RTEOM(MHTPl) 

RTEP 


COMMON Subroutine 
block 

STACOM 

CALCON 

CALCON 

INPUT 

MEPLOT 

THETOM 

OUTPUT 

CALCON 

TSONIN 


Description and comments 

r -coordinates of points along 
station lines where they 
cross streamlines, m 

r -coordinates of input blade 
section points (from RBL) 
defining trailing edge of 
blade, m 

r -coordinate of intersection 
of trailing edge of blade 
with hub profile, m 

temporary storage for 
r -coordinates, m 

temporary storage of 
r -coordinates from ROM 
for plotting, m 

temporary storage of 
r -coordinates from 
RPC, m 

temporary storage for values 
from ROM array oil verti- 
cal mesh lines; also tem- 
porary storage for values 
from RST array along sta- 
tion lines, m 

r -coordinates of inter- 
sections of horizontal mesh 
lines with blade trailing 
edge, m 

r -coordinate of point near 
trailing edge of blade sec - 
tion along meridional 
streamline, m 
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Variable name 

COMMON 

block 

Siibroutine 

Description and comments 

RTESL 


TSONIN 

r -coordinate of intersection 
of a streamline with trail- 
ing edge of blade, m 

RTET 

CALCON 


r -coordinate of intersection 
of trailing edge of blade 
with shroud profile, m 

RTHBL(NPPP , NBLPL) 


INPLOT 

rd-coordinate of blade 
mean camber line, corre- 
sponding to points in 
ZBL,RBL, used for plot- 
ting input blade sections, m 

RTIN 

CALCON 


calculated r -coordinate of 
intersection with shroud 
profile of line on which up- 
stream flow conditions are 
given, m 

RTIP(NTIP) 

INPUTT 


input r -coordinates of points 
defining shroud or top 
boundary of flow channel, m 

RTLEPK5) 


TSONIN 

r9 at blade suction-surface 


spline points near leading 
edge of a blade section, 
referenced to zero at lead- 
ing edge, used to make a 
layout to obtain input for 
TSONIC (ref- 5) , m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

RTLEP2(5) 


TSONIN 

r6 at blade pressure- 
surface spline points near 
leading edge of a blade 
section, referenced to 
zero at leading edge, used 
to make a layout to obtain 
input for TSONIC 
(ref- 5), m 

RTMP(NHUB) 

CROSCM 


temporary storage for por- 
tions of RRAD array in 
MESHO and CROSCD, m 

RTOLER 


VBDRY 

TVELCY 

tolerance on relative error 
of subsequent calculated • 
values of integrated mass 
flow 

RTOUT 

CALCON 


calcxilated r -coordinate of 
intersection with shroud 
profile of line oh which 
downstream flow condi- 
tions are given, m 

RTPLT(IOO) 

PLTCOM 


r -coordinate used' for plot- 
ting blade trailing edge , 
RTE, in MEPLOT, m 

RTRNG 

PLTCOM 


r -coordinate of top boundary 
of a plot of meridional 
plane or orthogonal mesh, 
done in MEPLOT, m 


*) 

/ 

0 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

RTTEP1(5) 


TSONIN 

r$ at blade suction-surface 
spline points near trailii^ 
edge of a blade section, 
referenced to zero at trail- 
ing edge, used to make a 
layout to obtain input for 
TSONIC (ref. 5) , m 

RTTEP2(5) 


TSONIN 

rO at blade pressure - 
sxirface spline points near 
trailing edge of a blade 
section, referenced to zero 
at trailing edge , used to 
make a layout to obtain in- 
put for TSONIC (ref. 5) , m 

RVA 


VBDRY 

p.W. cos 2irr./NBL, 

J J J J 

l^/(m)(sec) 

RVA 


TVELCY 

p.W. cos /3. cos(o! *• <p)jrjBj, 
kg/(m)(sec) 

RVAS 


VBDRY 

NBL, kg/(m)(sec) 

RVAS 


TVELCY 

Pj^lW .^1 cos 
cos(a-(p)j^.ir^+lBj+l 
kg/(m)(sec) 

SAL 


TVELCY 

sin a 

SAMP(MM,MHTP1) 

VARCOM 


sin(a - <p) at orthc^onal 
mesh points 

SAMPLE 


INDEV 

sin(ff - 

SAMPTE 


INDEV 

sin(o! - 
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Variable name 

SBETA 

SDIST 

SDRIV(NHUB) 

SF(MHTPl) 

SFIN(NIN) 

SFOUT(NOUT) 

V 

SINBTA 

SLl 

SLCRD (Integer variable) 
SLEOM(MHTPl) 


COMMON Subroutine 
block 

TVELCY 

INDEV 


CROSCM 

LOSSOM 

INPUTT 

INPUTT 

VBDRY 

MESHO 

CROSCD 

TSONIN 

CALCON 


Description and comments 

sin /3 

DISTLE (or DISTTE) plus 
the distance from blade 
leading (or trailing) edge 
out to first adjacent mesh 
point, m 

second derivatives of a 
spline fit of horizontal 
rows in RRAD array in 
MESHO, 1/m 

estimate of stream function 
at mesh points on down- 
stream boundary of 
orthogonal mesh 

input values of stream func- 
tion along hub-shroud line 
on which upstream flow 
conditions are given 

input values of stream fimc- 
tion aloi^ hub -shroud line 
on vdiich downstream flow 
conditions are given 

sin j3 

slope of horizontal 
orthc^onal at its point of 
intersection by a radial 
line in CROSCD 

input for TSONIC (ref. 5) 

s-coordinates of intersec- 
tions of horizontal mesh 
lines with blade leading 
edge, m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

SLIDLE 


INDEV 

solidity at leading edge of 
blade where it is inter- 
sected a horizontal 
mesh line 

SLIDTE 


INDEV 

solidity at trailing edge of 
blade where it is inter- 
sected by a horizontal 
mesh line 

SLOM(MM) 


MESHO 

slopes of horizontal mesh 
lines at mesh points 

SLOPE (NIN or NOUT) 


TIPF 

RHOIPF 

RHOOPF 

LAMDAF 

RVTHTA 

derivatives of spline -fit 
curves 

SOM(MM,MHTPl) 

CALCON 


s -coordinates of orthogonal 
mesh, m 

SPHI(MM,MHTP1) 

CALCON 


sin (p at orthogonal mesh 
points 

SPHILE 


INDEV 

sin 

SPRITE 


INDEV 

sin 

SPLNOl 


TSONIN 

input for TSONIC (ref. 5) 

SPLN02 


TSONIN 

input for TSONIC (ref. 5) 

SRE (integer variable) 

Blank 


switch used to turn on and 
off printing of error or 
warnii^ messages in some 
subroutines 
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; Variable name 
SRW(integer variable) 

SSTHBL(NPPP , NBLPL) 

STEOM(MHTPl) 

/ ' ' 

STHBL(NPPP, NBLPL) 

STRFN (integer variable) 
SURVL (integer variable) 
SYM 

SYN 

SZRBL(NPPP) 

SZRPC(11 or NBLPL) 


COMMON Subroutine 
block 

Blank 

INPLOT 

CALCON 

INPLOT 

TSONIN 

TSONIN 

INPLpT 

MEPLOT 

SLPLOT 

SVPLOT 

MEPLOT 

THETOM 

THETOM 


Description and comments 

switch used to turn on and 
off printing of debug infor- 
mation in some subroutines 

values of rfl for suction 
surface of adjacent blade, 
used for plotting input 
blade sections, m 

s-coordinates of intersec- 
tions of horizontal mesh 
lines with blade trailing 
edge, m 

values of rd on suction 
surface, used for plotting 
input blade sections, m 

input for TSONIC (ref. 5) 

input for TSONIC (ref. 5) 

indicator used to select a 
special plot symbol from a 
table 

indicator used to select a 
special plot symbol from a 
table 

arc lei^th aloi^ input blade 
section in meridional 
plane, m 

arc lei^;th aloi^ vertical or 
horizontal lines of alter- 
nate mesh (fig. 26) 


\ 
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Variable name 
TANBBL 

TANBFL 

TEMPER 

TGROG 

THBL(NPPP ,NBLPL) 

THLEOM(MHTPl) 

THLESL 

THPC(11,NBLPL) 

THSL 


COMMON Subroutine Description and comments 
block 


INDEV 

INDEV 

TVELCY 

CALCON 

INPUTT 


CALCON 

TSONIN 

THETOM 

TSONIN 


tan tangent of blade 
mean camber line angle at 
leading or trailing edge 

tan tangent of flow 
angle at leading or trailing 
edge, corrected for block- 
age 

T: or T^, K 
2yR/(y + 1) 

input array of d-coordinates, 
correspondii^ to 
RBL, ZBL, of points de- 
scribing mean blade sur- 
face, rad 

^-coordinates of intersec- 
tions of horizontal mesh 
lines with blade leading 
edge, rad 

0 -coordinate of intersection 
of streamline -ndth blade 
leading edge, rad 

0-coordinates of points on 
alternate mesh (fig. 26), 
rad 

0 -coordinate (relative to 
MERIDL origin, not 
TSONIC origin) of mean 
blade surface at points 
along meridional stream- 
lines, rad 
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Variable name 


THSPI(MM) 

THSP2(MM) 

THETOM(MHTPI) 

THTESL 

TINP 

T1P(NIN) 

TIPBDY(MHTPl) 

TIPT(MHTPl) 

TIPTEM 


COMMON Subroutine 
block 

TSONIN 


TSONIN 


CALCON 


TSONIN 


PRECAL 

LOSSOM 

INPUTT 

VBDRY 

TVELCY 

TSONIN 


Description aiid comments 

e -coordinates of blade 
suction-surface spline 
points, given as input for 
TSONIC (ref. 5), rad 

0 -coordinates of blade 
pressure -surface spline 
points given as input to 
TSONIC, rad 

0-coordinates of intersec- 
tions of horizontal mesh 
lines with blade trailing 
edge, rad 

0-coordinate of intersection 
of meridional streamline 
with blade trailii^ edge, 
rad 

TI, K 

i’ 

input Tj at points along the 
line from hub to shroud on 
which upstream flow condi- 
tions are given, K 

Ti at points on upstream or 
downstream boundary of 
orthogonal mesh, K - 

T! at points along vertical 
mesh lines, K 

TI along a streamline, K, 
input TIP for TSONIC 
(ref. 5) 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

TITLEI(20) 

INTITL 


alphanumerical contents of 
input title card 

TITL1(9) 


INPLOT 

plot title INLET ABSOLUTE 
TOTAL TEMPERATURE 

TITL1(15) 


MEPLOT 

plot title HUB, SHROUD, 
AND BLADE BOUNDARIES 
IN MERIDIONAL PLANE 

TITLI(IO) 


SLPLOT 

plot title STREAMLINE 
PLOT IN MERIDIONAL 
PLANE 

TITL1(12) 


SVPLOT 

plot title MERIDIONAL AND 
SURFACE RELATIVE 
VELOCITIES 

TITL2(8) 


INPLOT 

plot title INLET ABSOLUTE 
TOTAL PRESSURE 

TITL2(10) 


MEPLOT 

plot title ORTHOGONAL 
MESH IN MERIDIONAL 
PLANE 

TITL2(3) 


SLPLOT 

plot title Z DIRECTION 

TITL2(9) 


SVPLOT 

plot tiUe STREAMLINE NO. 
xxxx, U = XXXXXXXX 

TITL3(5) 


INPLOT 

plot title INLET ABSOLUTE 
WHIRL 

TITL3(3) 


MEPLOT 

plot title Z DIRECTION 

TITL3(3) 


SLPLOT 

plot title R DIRECTION 

TITL3(14) 


SVPLOT 

plot title MERIDIONAL 
RELATIVE VELOCITIES 
FOR ALL STREAMLINES 
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\ 


Variable name 

COMMON 

block 

Subroutine' 

Description >and comments 

Tn;L4(.9) 


INPLOT 

,plot title INLET ABSOLUTE 
TANGENTIAL VELOCITY 

TITL4(3) 


MEPLOT 

plot title R DIRECTION , . 

TITL4(11) 


SLPLOT 

plot title SUBSONIC 
SOLUTION, ITERATION 

• , p. 



NO. XXXX 

TITL4(15) 


SVPLOT 

plot title SUCTION SURFACE 
RELATIVE VELOCITIES 




FOR ALL STREAMLINES 

TITL5(8) 


INPLOT 

plot title OUTLET 
ABSOLUTE TOTAL 




PRESSURE 

TITL5(5) 


SLPLOT 

plot title TRANSONIC 
SOLUTION 

TITL5(16V 


SVPLOT 

plot title PRESSURE 
SURFACE RELATIVE 




VELOCITIES FOR ALL 
STREAMLINES 

TITL6(9) . . 


INPLOT 

plot title OUTLET 
ABSOLUTE TOTAL 




PRESSURE LOSS 

TITL6(6) 


SVPLOT 

plot title MERIDIONAL 
COORDINATE 

TITL7(6) 

i. 


INPLOT 

plot tiUe OUTLET 
ABSOLUTE WHIRL 

TITL7(2) 


SVPLOT 

plot title VELOCITY 

TITL8(9) , 


INPLOT 

plot title OUTLET 
ABSOLUTE TANGENTIAL 


VELOCITY 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

TITL10(13) 


INPLOT 

plot title INPUT BLADE 
SECTIONS FROM ZBL, 
RBL, THBL, TNBL 

TITL11(6) 


INPLOT 

plot title BLADE SECTION 
NO. XXXX 

TITL12(6) 


INPLOT 

plot title COMBINED BLADE 
SECTIONS 

TITL13(4) 


INPLOT 

plot title STREAM 
FUNCTION 

TITL14(2) 


INPLOT 

plot title RADIUS 

TITL15(5) 


INPLOT 

plot title INPUT ARRAY - 
TIP 

TITL16(5) 


INPLOT 

plot title INPUT ARRAY - 
PRIP 

TITL17(5) 


INPLOT 

plot title INPUT ARRAY - 
LA MIN 

TITL18(5) 


mPLOT 

plot title INPUT ARRAY - 
VTraN 

TITL19(5) 


mPLOT 

plot title INPUT ARRAY - 
PROP 

TITL20(5) 


INPLOT 

plot title INPUT ARRAY - 
LOSOUT 

TITL21(5) 


INPLOT 

plot title INPUT ARRAY - 
LAMOUT 

TITL22(5) 


mPLOT 

plot title INPUT ARRAY - 
VTHOUT 

TITL24(10) 


INPLOT 

plot title BLADE SECTION 
MERIDIONAL 
COORDINATE 
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Variable name 

COMMON 

block 

Siibroutine 

Description and comments 

TITL25(9) 

1 ■ ' 


INPLOT 

plot title TANGENTIAL 
COORDINATE - 
RADIUS* THETA 

TLEREF 


TSONIN 

0 -coordinate of leading edge 
of blade, relative to 
TSONIC origin (ref. 5) , 
rad 

TNBL(NPPP,NBLPL) 

INPUTT 


input array of blade normal 
thicknesses, correspondii^ 
to ZBLjRBL coor- 
dinates, m 

TOLER 


MESHO 

tolerance used in ROOT 
calls 

TOLER 


TIPF 

RHOIPF 

RHOOPF 

LAMDAF 

RVTHTA 

tolerance for a point close 
to a spline point 

TOM(MM, MHTPl) 

( 

CALCON 


t -coordinates of orthogonal 
mesh, m 

1 

TOP (MHTPl) 


TVELCY 

T^ at points aloi^ vertical 
mesh lines, K 

TOP 


PRECAL 

LOSSOM 

T’ K 

O’ 

TPP 


NEWRHO 

TVELCY 

OUTPUT 

T” at a mesh point, K 

tppn 


TVELCY 

new T", K 

TPPTIP (MM or MHTP 1) 


NEWRHO 

T**/TI along verttcal or 


horizontal mesh lines 
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Variable name 
TRNG 

TTEM(NBLPL) 

TTEREF 

TTIP 

TVERT(MHTPl) 

TWLMR(MHTPl) 

TWLMR 

UBDEV 

UBINC 


COMMON Subroutine 
block 

INPLOT 

SVPLOT 


Description and comments 

top or upper range of values 
on a given plot 


PRECAL 

THETOM 

temporary storage of 
d -coordinates, rad 

TSONIN 

d-coordinate of trailing edge 
of blade, relative to 
TSONIC origin (ref. 5), 
rad 

VBDRY 

NEWRHO 

BLDVEL 

TVELCY 

T/T! 

NEWRHO 

BLDVEL 

OUTPUT 

TVELCY 

temporary storage for val- 
ues from TOM array on 
a vertical mesh line, m 

TVELCY 

2 

2(oX - (ci>r) at points along 
vertical mesh lines, 
m /sec 

VBDRY 

NEWRHO 

BLDVEL 

2wX - (u>r)^, m^/sec^ 

INDEV 

deviation angle, neglecting 
block^e correction, 
where horizontal 
orthogonal intersects 
blade, deg 

INDEV 

incidence angle, neglecting 
blockage correction, where 
horizontal orthogonal in- 
tersects blade, 

(»fs - 6b), 
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Variable name 
UlLOM(MHTPl)‘ 

UNEW 

UOLOM(MHTPl) 

UOM(MM, MHTPl) 
UTEM(MHTP1 or 20) 

UVERT (MHTPl, 2) 

U VERT (MHTPl) 
VELTOL 


VTH (MM, MHTPl) 


COMMON Subroutine 
block 

LAMDAF 

SOR 

RVTHTA 

VARCOM 

OUTPUT 

SOR 

NEWRHO 

INPUTT 

VARCOM 


Description and comments 

stream-function values for 
spline fit of stream func- 
tion against radius 

new estimate for u at a 
mesh point 

stream-function values for 
spline fit of stream func- 
tion against radius 

stream function, u, at 
orthogonal mesh points 

temporary storage for val- 
ues from UOM array on 
vertical mesh lines; also 
stream function at 
20 equally spaced points 
from hub to shroud 

temporary storage for 
boundary values of stream 
function on upstream and 
downstream boundaries of 
orthogonal mesh 

temporary storage for val- 
ues from UOM array along 
vertical mesh lines 

input convergence tolerance 
on maximum velocity 
change in each outer iter- 
ation, over all mesh points, 
for reduced mass flow 

V Q at orthogonal mesh 
points, m/sec 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments | 

VTHIN(NIN) 

INPUTT 


input values of at points 




1 

along line from hub to 
shroud on which upstream 
flow conditions are given, 
m/sec 

VTHOUT(NOUT) 

INPUTT 


input values of at 


points along line from hub 
to shroud on which down- 
stream flow conditions are 
given, m/sec 


W(MM,MHTP1) 

VARCOM 


W at orthogonal mesh 
points, m/sec 

WAS 


VBDRY 

TVELCY 

first estimate of at 

next mesh point along 
vertical mesh line 
(eq. (D), m/sec 

WASS 


VBDRY 

TVELCY 

second estimate of at 

next mesh point along 
vertical mesh line 
(eq. (1)), m/sec 

WBDRY(MHTPl) 


VBDRY 

W on upstream or down- 
stream boundary of 
orthogonal mesh, calcu- 
lated by velocity -gradient 
equation ((C9), part I), 
m/sec 

WFLF 


VBDRY 

P - '•Lb)/(4p - 4ub)’ 

area fraction, estimate 
of stream function at 
radius, r 

WfflRL 


TVELCY 

X or (rVfl) , m^/sec 
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Variable name 
'WHUB 

WLSSL(MM,NSL) 

WLSST(NSL , NOSTAT) 

WLSURF(MM , MHTP 1) 
WMSL(MM,NSL) 

WMST(NSL, NOSTAT) 

I . ' " 

WMVERT(MHTPl) 

WRSL(MM,NSL) 

/■ 

WRST(NSL, NOSTAT) 
WSL(MM,NSL) 

WSM 


COMMON Subroutine 
block 

VBDRY 

TVELCY 

SLCOM 

STACOM 

VARCOM 

SLCOM 

STACOM 

TVELCY 


SLCOM 


STACOM 


SLCOM 


VBDRY 


Description and comments 
estimate of m/sec 

Wj at points along stream- 
lines \rfiere they cross ver- 
tical mesh lines, m/sec 

Wj at points aloi^ station 
lines where they cross 
streamlines, m/sec 

Wj on orthogonal mesh, 
m/sec 

W at points where stream- 
m 

lines cross vertical mesh 
lines, m/sec 

W at points where station 
m 

lines cross streamlines, 
m/sec 

temporary storage for val- 
ues from WSTJBM array on 
vertical mesh lines, 
m/sec 

Wj. at points where stream- 
lines cross vertical mesh 
lines, m/sec 

Wj. at points where station 
lines cross streamlines, 
m/sec 

W at points where stream- 
lines cross vertical mesh 
lines, m/sec 

Wg at mean radius, m/sec 


109 



Variable name 

COMMON 

block 

Subroutine 

Description and comments 

WSQ 


VBDRY 

NEWRHO 

TVELCY 

W^, mVsec^ 

WSQ 


BLDVEL 

or W^, m^/sec^ , 

WST(NSL,NOSTAT) 

STACOM 


W at points where station 
lines cross streamlines, 
m/sec . 

WSUBM(MM, MHTPl) 

VARCOM 


Wm at orthogonal mesh 
points, m/sec 

WSUBR(MM, MHTP 1) 

VARCOM 


Wj. at orthogonal mesh 
points, m/sec 

WSUBS(MM, MHTPl) 

VARCOM 


W_ at orthogonal mesh 
s 

points, m/sec 

WSUBT(MM , MHTP 1) 

VARCOM 


at orthogonal mesh - 
points, m/sec 

WSUB Z (MM , MHTP 1) 

VARCOM 


at orthogonal mesh 
points, m/sec 

WTEMP 


NEWRHO 

new calculated value of W 
at a mesh point, m/sec 

WTFL 


TSONIN 

mass flow per blade in a 
stream sheet, 1^/sec, 
input to TSONIC (ref . 5) 

WTH(MM, MHTPl) 

VARCOM 


Wg at orth<^onal mesh 
points, m/sec 

WTHETA 


VBDRY 

TVELCY 

Wg, m/sec 

WTHSL(MM,NSL) 

SLCOM 


Wg at points where stream- 
lines cross vertical mesh 
lines, m/sec 


no 



Variable name 

1 

WTHST(NSL , NOSTAT) 

WTSSL(MM,NSL) 

WTSST(NSL , NOSTAT) 

WTSURF(MM, MHTPl) 
WTVERT(MHTPl) 
WWCR(MM, MHTPl) 
WWCRSL(MM,NSL) 

WWCRST (NSL , NOSTAT) 

WZSL(MM,NSL) 

WZST(NSL, NOSTAT) 

XIOM(MM, MHTPl) 


CX)MMON Siibroutine' 
block 

STACOM 

SLCOM 

STACOM 

VARCOM 


STACOM 

SLCOM 

STACOM 

VARCOM 


Description and cbmnients 

Wg at points ^ere station ~ 
lines cross streamlines, 
m/sec 

at points where stream- 
lines cross vertical mesh 
lines, m/sec 

Wtr at points where station 
lines crpss s^eamlines, 
m/sec 

Wtr on orthogonal mesh, 
m/sec 

WTH on verticaLmesh lines, 
m/sec 


W/Wpr at points Where 
streamlines cross vertical 
mesh lines 

W/W^^ at points where sta- 
tion lines cross stream- 
lines 

at points where stream- 
lines cross vertical mesh 
lines, m/sec 

W„ at points where station 
lines cross streamlines, 
m/sec 

4 at orthc^bnal mesh points, 
(eq. (A2)), 1/m 


TVELCY 


VARCOM 


' ' W/W^j. at orthogonal mesh 
points 


SLCOM 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

XIOMT 


NEWRHO 

new estimated value of B at 
a mesh point 

XNEW 


NEWRHO 

percentage of new calculated 
value of XIOMT used in up- 
dating XIOM 

Z 


CROSCD 

reference z -coordinate, m 

Z1 


MESHO 

z-coordinate of intersection 
of line (D, fig. 8, with 
upper horizontal mesh 
line, m 

Z2 


MESHO 

z-coordinate of intersection 
of line (D, fig. 8, with 
upper horizontal mesh 
line, m 

ZBL(NPPP,NBLPL) 

INPUTT 


input array of z -coordinates 
of points describii^ blade 
surface, m 

ZBLTEM(NBLPL) 


OUTPUT 

temporary storage for val- 
ues in ZLE and ZTE 
arrays, m 

ZEROM 


OUTPUT 

translation distance on 
m -coordinate so that 
m = 0 corresponds to 
z = 0, m 

Z E TOM(MM , MHTP 1) 

VARCOM 


^ at orthc^onal mesh 

2 

points (eq. (A3)), m/sec 

zetomt 


NEWRHO 

new estimated value of ? 
at a mesh point 
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Variable name 
ZHIN 

COMMON 

block 

INPUTT 

Subroutine 

Description and comments 

input z-coordinate of inter- 
section with hub profile of 
line on which upstream 
flow conditions are 
given, m 

ZHOUT 

INPUTT 


input z -coordinate of inter- 
section with hub profile of 
line on which downstream 
flow conditions are 
given, m 

ZHPLT(IOO) 

PLTCOM 


z-coordinates used for plot- 
ting hub profile , ZHUB, 
in MEPLOT, m 

f 

ZHST(NOSTAT) 

INPUTT 


input z-coordinates of inter- 
sections of hub-shroud 
output station lines with 
hub profile , m' 

ZHUB(NHUB) 

INPUTT 


input z-coordinates of points 
defining hub or bottom 

I S' 

boundary of flow chan- 
nel, m 

ZILOM 


LAMDAF 

z -coordinate correspondii^ 
to RILOM 

ZLE(NBLPL) 

CALCON 


z-coordinates of input blade 
section points (from ZBL) 
defining leadii^ edge of 
blade , m 

ZLEH 


PRECAL 

z-coordinate of intersection 


of leading edge of blade 
with hub profile, m 


113 



Variable name 

COMMON 

block 

Svd)routine 

Description and comments 

ZLEOM(MHTPl) 

CALCON 


z-coordinates of intersec- 
tions of horizontal mesh 
lines with blade leading 
edge, m 

ZLESL 


TSONIN 

z-coordinate of intersection 
of a streamline with lead- 
ing edge of blade, m 

ZLET 


PRECAL 

z-coordinate of intersection 
of leading edge of blade 
with shroud profile , m 

ZLPLT(IOO) 

PLTCOM 


z-coordinates used for plot- 
ting blade leading edge, 
ZLE, in MEPLOT, m 

ZLRNG 

PLTCOM 


z-coordinate of left-hand 


boundary of a plot of meri- 
dional plane or orthogonal 
mesh, done in MEPLOT, m 


ZNEW 


NEWRHO 

percentage of new calculated 
value of ZETOMT used in 
updating ZETOM 

ZOLOM 


RVTHTA 

z-coordinate corresponding 
to ROLOM 

ZOM(MM,MHTPl) 

CALCON 


z-coordinates of orthogonal 
mesh, m 

ZOMBI 

[ 

INPUTT 


input z-coordinate of inter- 
section of vertical mesh 
line vdth hub profile where 
first change in mesh 
spacing occurs (MBI), m 
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Variable name 
ZOMBO 

COMMON 

block 

INPUTT, 

Subroutine 

Description and comments 

input z-coordinate of inter- 
section of vertical mesh 
line with hub profile where 
second change in mesh 
spacii^ occiirs (MBO) , m 

ZOMIN 

INPUTT 


input z-coordinate of inter- 
section of left boundary of 
orthogonal mesh with hub 
profile, ra 

ZOMOtJT 

1 

INPUTT 


input z-coordinate of inter- 
section of right boundary 
of orthogonal mesh (MM) 
with hub profile, m 

ZPC(11,NBLPL) 

INDCOM 


z-coordinates of points of 
alternate mesh (fig. 26) 

ZRRNG ' 

. . J ■ , . ■ 

■ f ■ ■ 

PLTCOM 


z-coordinate of right-hand 
boundary of a plot of meri- 
dional plane or orthogonal 
mesh, done in MEPLOT, m 

ZSL(MM,NSL) 

SLCOM 


z-coordinates of points 
where streamlines cross 
vertical mesh lines, m 

ZSLTEM(NSL) 


OUTPUT 

temporary storage for cal- 


culated values to be put 
into ZSL array, m 


z -coordinate on leading or 
trailing edge of blade cor- 
responding to a stream- 
line, m 

ZSPLT(IOO) PLTCOM z-coordinates used for plot- 

ting shroud profile, ZTIP, 
in MEPLOT, m 
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Variable name 
ZST(NSL,NOSTAT) 

ZTE(NBLPL) 

ZTEH 

ZTEM(IO) 

ZTEM(MM) 

ZTEM(NBLPL) 

ZTEM(MHTP1 or 
NOSTAT or 20) 

ZTEOM(MHTPl) 

ZTESL 


COMMON Subroutine 
block 
STACOM 

CALCON 

PRECAL 

INPUT 

MEPLOT 

THETOM 

OUTPUT 

CALCON 

TSONIN 


Description and comments 

z -coordinates of points 
where station lines cross 
streamlines, m 

z -coordinates of input blade 
section points (from ZBL) 
defining trailing edge of 
blade, m 

z-coordinate of intersection 
of trailii^ edge of blade 
with hub profile, m 

temporary storage for 
z-coordinate, m 

temporary storage of 
z -coordinates from ZOM 
for plottii^, m 

temporary storage of 
z-coordinates from ZPC, m 

temporary storage for values 
from ZOM array on vertical 
mesh lines; also temporary 
storage for values from 
ZST array along station 
lines, m 

z-coordinates of intersec- 
tions of horizontal mesh 
lines with blade trailing 
edge, m 

z-coordinate of intersection 
of a streamline with trailing 
edge of blade , m 
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Variable name 

COMMON 

block 

Subroutine 

Description and comments 

ZTET 


PRECAL 

z -coordinate of intersection 
of trailing edge of blade 
with shroud profile, m 

ZTIN 

INPUTT 


input z -coordinate of inter- 
section of line on which up- 
stream flow conditions 
are given with shroud pro- 
file, m 

ZTIP(NTIP) 

INPUTT 


input z -coordinates of points 
defining shroud or top 
boundary of flow chan- 
nel, m 

ZTOUT 

INPUTT 


input z-coordinate of inter- 
section of line on which 
downstream flow condi- 
tions are given with 
shroud profile, m 

ZTPLT(IOO) 

PLTCOM 


z-coordinate used for plot- 
ting blade trailing edge, 
ZTE, in MEPLOT, m 

ZTST(NOSTAT) 

INPUTT 


input z-coordinates of inter- 
sections of hiib -shroud 
output station lines with 
shroud profile, m 
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PROGRAM LISTING 


common SRWfSRE* ITERtieND.NREAOt^ViRIT 

CCMMCN/ IN PUTT /GAM» AR, m$ FL , OMEGA, REOFAC. VELTOL,PNEW,ONEW,MB I ,MBO, 

1 MM,MHT,NBt,NHUR,NTlP,mN,NCUT,NBLPL,NPPPtNOSTAT,NSL,LSFR, 

2 LTPLfLAMVT, IMESH,I SL INE , !STATL,I PLCT,I SUPER ,I TS0N,IDE8UG, 

3 70MIN,ZOMPI,7CVPC, 70M0UT , ZPIN, 7T tNtZHOUT, 7TOUt,7HUR( 50), 

4 RHUR(50) ,7 TIPI 50) ♦RTIPC50) , SPIN (501 , RADIN 150 ) ,TIPC50 ),PR IP(50), 

5 LAMIN(50),VTHIN( SO ), SFOUTf 50) ,R AOOUT( 50) ,PRCIP(50) ,LQS0UT(50) ♦ 

6 LAM0UT(50) ,VTH0UT(5O),7HST (50), 7TST(50 ), FLFR(50), 

7 7RL( 50,50 ,RRIC 50, 50) ,THBL (50,50) ,TNBLI50,50) 

EXTERNAL T JPF,T0PF, RHO !PF,RHOOPF,LAMDAF,R VTHTA 
INTEGER SRN,SRE 

10 IEN0= -1 
ITERs 0 
C 

C— READ AND PLOT INPUT DATA 
CALL INPUT 
CALL INPLOT 

— GENERATE ORTHOf^NAL MESH 

CALL MESHO 

— CALCULATE ALL PRELIMINARY FIXED CONSTANTS 

CALL PRECAL 

— PLOT ORTHOGONAL MESH 

CALL MEPLCT 

—CALCULATE STREAM FUNCTION ON UPSTREAM AND DOWNSTREAM 
— ROUNCARIES OF THE CRTHOGONAL mesH 

CALL VBORY( 1,TIPF,RH01PF,LAMCAF) 

CALL VRDRY(MM,TOPF, RHOOPF,R VTHTA) 

— CALCULATE COEFFICIENTS, SOLVE DIFFERENTIAL EOUATICNS FOR STREAM 
—FUNCTION, ANC COMPUTE NEW VELOCITIES AND DENSITIES 

CALL INIT 
20 ITER = ITER+1 
CALL CCEF 
CALL SCR 
CALL NEWRHO 

— CALCULATE AND PRINT MAJOR OUTPUT DATA 
CALL OUTPUT 
CALL INDEV 

— FLCT streamlines ANC PLOT VELOCITIES 
CALL SLPLOT 
CALL SVPLOT 

IF (lENO-LT.O) GG TO 20 
IF ( REOFAC.EO. 1. C) GO TO 10 

— OBTAIN TRANSONIC SOLUTION WITH FULL MASS FLOW 
30 CALL TVELCY 

IF nSUPER.E0,2) GO TO 10 
REOFAC = 1.0 
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CiSLL TGUTPT 
CALL IK'OEV 
CALL SLPLOT 
CALL SVPLOT 

IF nsUPER.FO.O) CC TO 10 
I SUPER = 0 
rC TC 30 

FKO ' , ' 


SUPRnUTTNE INPUT 

— INPUT REAOS ANC PRINTS ALL INPUT CATA CARDS 
CCMMCN SRW.SRE* iTERt I ENC,NREAC,NWRIT 

CCVMON/INPUTT/GAM, AR,NSFL,CNEGA,RECFAC»VELTOLt FNEW,ONEW,HBI»NBO* 

1 MM,NHT»NBL «NHUBfNTIP »NIN,NCUTfNBLPLfNPPPf NCSTATf ASLtLSFRf 

2 ITPL,LAWVT, IMESH, ISL INE» ISTATL, IPLOT,IStJPER»ITSON,IOEBUG, 

3 TGRIN,7CRBI fZCReOt 7GRCUT , ZH IN t ZT IN t 7H0UT , 7T CUT, 7PUB(501, 

4 RHUP<501 ,7TIP( 50J,RTIP< 50) ,SFIN(50) ,RAOI M 50 ,T I P 150) ,PR IP (50 » , 

5 LAPtN(50),VTHIN<50)t SFOIIT ( 50 ),RADOUTC 50), PROP (50) ,LOSOUT( 50 , 

6 LAMOUT(50),VTHGUT(50),ZHST(50),7TST(50),FLFP(50), 

7 7f»L(5O,5O),R0L(5O,5O)tTHBL(5O,5O)fTN8L(5O,5C) 

CCWMON/CALCCN/MMMl ,WHTP1,CP, EXPGN,TGROG, P ITCH, CURVHl , CUR VTI , 

1 CURVHO,CURVTO,RHIN,RTiN,RHCiiT,RTOU7,RLEH,RLET,PTEH,RTEt, 

2 7LE(50),PLE(50J,ZTE(50),RTE(50),ZLEOM( 101),RLECM(101I , 

3 SLEOM(lOl) ,THLECM(l01),7T£C»'a0l),RTEOM(101),STE0M( 1011, 

4 THTEOMI 101),ILE(101) ,ITE(1CI) ,70M(100,101 ) ^POFdOOtlOll , 

5 SONdOO, 101), TOM( 100, 101),BTH( 100,101) ,DTHOS( 100', ion , 

6 OTHOT( 100,101) ,PLOSS (100,1 Oil ,CPH I (100, 101 ),S PH I (100, 101) 

CCMM0N/INTITL/TrTL'En20) ■ ‘ ’ 

OIPENSION 7TEM(10),RTEM(10),DYOX( 10), 

REAL WSFL,IAMIN,LAN0UT,LCS0UT 

— READ ANC PRINT INPUT DATA 

NR FAD =5 
NHRIT * 5 

10 ViRTTE(NWRlT,1000) 

READ (NREAC, 1050) ( TITLEK I ) ,1*1 ,20) 

WPtTE(NWRIT,1050 ) (TITLEK 1), 1=1,20) 

HRI TE(NVfRIT,110C) 

REAP (NREAn,1030) GAM,AR ,MSFL ,CWEGA ,REDFAC ,VELTCl ,FNEW,DNEW 

IF (RECFAC.IE.O.) REOFAC=l.O 

IF { VELTOL.LE.O. ) VeLTCt=.Ol 

IF (FNEW.LE.O.) FNEW=0.5 

IF (DNEW,LE,0.) CNEW=0.5 

VFLTOL = VELTOL#ARINl(FNEV|,ONEW) 

WRITE(NWRIT ,1040 ) GAM, AR, MSFL , OMEGA ,REDFAC , VEL TOL ,FNEW , ONE W 
WRITF(NWRrT,lllO) 

R EAD (NREAD, 1010) mbI , MBO, m« , RH T ,NBL , NHUB ,NTI P ,M N , NCUT , NBL PL, 
1NPPP,N0STAT ,NSL 

NRTTE(NVJR1T,1C2 0) PBI,mBG,vM,PHT,NRL , NHUB , NT I P , N IN ,NCUT , N BLPL , 
1NPPP,N0STAT,NSL 
VPtTE(NV«RIT ,1120) 

READ (NREAD, ICIC) LSFR , LTPL ,LAP VT 
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WPTTF CNWRIT, 1020) L S FR » L TPL tL AM VT 
WRf tF(NVRIT,1130» 

RFAD t NREAD, 10-30 ^OMl N ,7nMB I »7 C**R0 , ZGMOUT 
WRITE (NWR IT. lOAOl 70^ IN . ZOM B I , ZDMRO t ZOMOUT 
VIPITFINWRIT.llAO) 

reap <NREAn.l03C) I ZHUB t I) , I *1 .NHU8 1 
WPITEINWRIT.IOAO ) ( ZHDBC 1). I=1,NW)B 1 
WRI TEl NWRIT.1150) 

READ INREAn.1030) IRHUBI I > ,I=l.NHU8) 
WRITEINWRIT.1040) (PHUBH). I=1,NHUB) 
WRITEtNVIBI T.1160J 

REAC tNREAr.1030) ( ZTIf»U ). I* l.NTIP) 
WPITECNWRIT .1040 ) ( 7T I P U I » I- 1. NT T P 1 
WPITEINWRTT.llTO 

REAP (NREA0.1030) I RT IP U ) ♦ 1 = l.NT IP ) 

WRITE INWRIT .1040) IRTIPfl). I-l.NTIP) 

WRITE! NWRIT. IIBO 
READ INREAO, 1030) ZHIN.ZTIN 
WPITE(NV*RIT,1040) ZHIN.ZTIN 
IF ILSFR.EO.l) GO TO 20 
WP1TE!NWR1T,11<»0} 

READ INREA0.1030) (SFINf II , I-l ,NIN) 

W RITE IN WP IT, 1040) I SF I N( I) , I * 1 ,NI N) 

GO TC 30 

20 WRITE(NWRIT,120C) 

READ (NReAO.1030) I RADI N( I > . I =l .NT N1 
WRITE fNWR IT .1040} ( RAOIN U I » 1* I ,N IN 1 
30 WRITE<NWRIT,1210) 

READ <NREAn.l030J ( TIPf II. I* l.NIN» 
WRITEINWRIT.1040} ITI P<1 I . I=1.NIN 1 
WRITFf NWRIT.1220) 

READ INREAD.1030) ( PRIP (I), I*1,NIN) 

WRITE INWRIT ,1040} I PRIP II) ♦ I = l,NINI 
IF (LAMVT.EO. U GO TO 4C 
WPITEINWRIT.1230 } 

READ INREAD.1030} I LARI M 1) . 1 = 1 ,N IN I 
WRITEINWRIT.104C} ILAMINI I) .I=1.NIN) 

GC TO 50 

40 WPITEINWRIT.1240) 

READ {NREAD. 1030) 5 VTHINI 1} ,I =1 ,NI N) 
WPITEINWRIT.1040 } IVTHINI I), I»1,NTN I 
50 WPITEINWRIT.1250} 

READ (NREAD.1C3C) ZHOUT.7TOUT 
WPITEINWRIT.1040) ZHOUT.ZTOUT 
IF ILSFR.EO.n GO TO 60 
WRITECNWR IT. 1260) 

READ INREAn.1030) I SFOUT f I ) . 1= 1 .NOUT ) 
WRITEINWRIT.ICAO) ISFOUTIII .1=1, NOUT) 

GC TC 70 

to WRITFf NWRIT, 1270} 

READ INREAP.1030) (RAOOUTI I) . 1= l.NOUT) 
WRITE (NWRIT ,1040 ) (RACOUT III, != l.NOUT I 
70 IF (LTPL.EO.U GO TO 80 
WRITEINWR IT, 12801 

READ INREAD.1030) I PROP 1 1) . 1=1 . NCUT ) 

WRI TEl NWRIT. 1040 I PROP in ,1 = 1. NOUT) 

GC TC PO 

8C WRITEINWRiraZ'JO) 

READ INREAD.1030) ILO SOUTI I ) ,1=1 .NOUT) 

W FIT EC NWRIT, 1040 > (LOSOUTI 1 1. 1=1, NOUT I 
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CO IF (LAMVT.FC.l) Gf TO 100 
WRTTFfNWRTTt 13CCJ 

REAO fN'PFAC, 1030) (L A^OUT ( I ) , I* l»NOUT ) 

WRI TE(NWRITfl04C) ( LA wOliT C t> » T *1 tNCUT ) 

GO TO no 

loo WPITE(MWR 11,1310 ) 

RFAO fNREAn,1030) ( VTHOUTf I) , 1=1 ,KCUT I 
WRITEINWR IT, 1040) ( VTHOUTC I »,I=1,NQUT) 
lie WRITEINWRIT ,1320 ) 
on 120 JN=l,NRLPL 

REAR fNREAn,1030) ( ?6L UN , JN ) , I N= I, NPPP ) 

120 WPITEINWRIT ,1040) 1 ZBL UN,JM , IA'=1, NPPP ) 

WRTTEf NWRIT,1330) 

nr no jn=i,nblrl 

READ fNPEAD,l030> (RBL( IN, JNI, IN=l,NPPP ) 

130 WRITE! NWRIT,104C) (RBL f I N , JN ) ,T N = l , NPPP) 

WPITE(NWRTT,1340) 
nr 140 JN=1,KBLPL 

READ INREAC, 10301 ( THBUIN, JN| ,I N=l ,NPPPI 
140 WPITE(NWRIT,1040) (THBL flN, JN 1, IN= 1, NPPP 1 
WRITEfNWRITa35C) 

00 150 JN*1,NBLPL 

READ (NRFAC,1030) (TNBL UN, JN I, IN= I, NPPP ) 

150 WRTTEINWRI T,1040) (TNBLUN.JM ,I N*1 ,NPPP) 

IF INOSTAT ,E0 .0) GO TO 160 
WRITEfNWRtT ,1360) 

READ (NREAD,1030) ( ZH STf I) ,I =1 ,NCSTAT > 

WRITE! NWR IT ,1040 » (ZHST! I), I=1,N0STAT» 

WRITE(NMRIT,1370) 

READ !NREAO,1030) ( ZTST! I ) , I =1 ,NOSTAT) 

WRITEfNWRIT, 10401 C ZTST ! II, 1= 1,N0STAT I 
160 IF fNSL.EO.O) GO TO 170 
WRTTEfNWR IT, 13B01 

READ (NREAC,1030) ! FL FR < I ), I» I, NSL » 

WR1TE!NW»I7,1040) ! FLFR f 1 ) ,1=1 ,NSL 1 

170 WRTTEINWR IT,13R0) 

READ (NREAO^IOIO ) I«eS H, ISL INE, ISTATL, IPLOT, ISliP ER , ITSON, lOEBUG 
WRITE!NWRIT,1020) I «E SH ,1 SLI NE , I ST ATL , I PLOT, ISUPER , ITSON, IDEBIJG 
WRlTEfNWR IT, 1000) 

IF f «M.LE.100.ANO.WHT.LE.100.ANO,NHU8,LE,50,AND,NTIP.LE.50.AND, 
IN IN.LE. 5O.AND.NOUT,LE.5C.AND.NPiPL,LE-50.AN0,NPPP,LE.5O,AND. 
2N0ST AT.LE.50.ANC.NSL.LE.50.ANC.LSFR ,GE. O.ANO.L SF R. LE, 1, AND. 
3LTPt.GE.O.AND,LTPl,lE.l,ANO.LAMVT.GE.O.AND-LAMVT.LE.l> GO TO 180 
WRITEfNWRIT, 1400) 

STOP 

— CALCULATE MISCELLANEOUS CONSTANTS 

IPC MMMl * NM-1 
MFTPI= MHT + l 
EXPON= l./!GAM-l.) 

CP = AR«5AM*eXP0N 
TGROG* 2.*GAM*AR/(GAM+l.| 

PITCH* 2.43.1415927/FL0AT(NBL) 

MSFL = MSFL/FLOAT(NBL) 

— ASSUME VALUES FOR ZHIN, ZT IN, ZHOUT, AND ZTOUT 

— IF THEY HERE NOT GIVEN AS INPUT 
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IF (LSFR.eC.l) no TO 200 
IF (;^HIN.NF.O..OR.2TIN.N’E«0«) no TO 190 
7V1N * TflMIN 
7TIM = 70WTN 

19C IF f ?HOUT.ME.O,.Cfi.ZTOUT.NE.O.J GO TC 200 
7H0UT = 70M0UT 
7TCUT * 70MGUT 
C 

C— CALCULATE ESTIFATEO UPSTREAI* AND DOWNSTREAM VALUES CF 
C— STREAM FUNCTICNt TF RADIUS WAS GIVEN AS INPUT 
C 

2CC 7TEMI 1>* 7H1N 
7TEM(2)* 7PCUT 

CALL SPLI NT! ZHUP,RHU8»NHUe, ZTEM»2t RTEMf CYDX 1 
RHTN= RTEMI 1» 

RHOUT= RTEMI2I 
ZTEMIU* 7TIK 
7TEM<2J= 2T0UT 

CALL SPLINT(ZTIPtRTrP*NTIP,ZTEM*2tRTEMfDY0X) 

RTIN* RTEwm 

RTOUT* RTEMI21 

RINSC = RTIN»*2-RFIN»*2 

ROUTSO * RTCUT*»2-RH0UT**2 

IF (LSFR.EO.OI GO TO 230 

no 210 J=l tNIN 

210 SFINCJI = IRAOINC J)**2-RHIN**2I /RINSO 
nC 220 J»1,N0UT 

220 SFOUT(J) = IRADCUTI JI**2-RHOUTF*2I/ROUTSO 
GO TO 260 
C 

C— CALCULATE ESTIMATED UPSTREAM AND DOWNSTREAM VALUES OF 
C — RADIUS* IF STREAM FUNCTION WAS GIVEN AS INPUT 
C 

230 DC 240 J*l,NIN 

. 240 RAOIN(J) * S0RTIRHIN**2+SFINIJ)^RINSCJ 
DO 250 J»l,NOUT 

250 RACOUTCJ) » SORT <RH0UT**2+S FCUT fJ l♦R0UTS0 I 
C 

C— CALCULATE ESTIMATEC UPSTREAM AND DOWNSTREAM TANGENTIAL VELOCITIES* 
C — IF WWIPL WAS GIVEN AS INPUT 
C 

260 IF UAMVT.EC.IJ GO TO 290 
00 270 J=1*NIN 

270 VTHINIJ) = LAMINCJl/RAOINf J) 

DC 2R0 J=1*N0UT 

260 VTHOUTIJJ = LAM0U7CJ) /RAOOUT ( Jl 
IF (LSFR.EO.il LAMVT»l 
RETURN 
C 

C — CALCULATE ESTIMATED UPSTREAM AND DOWNSTREAM WHIRL* 

C — IF TANGENTIAL VELOCITY MAS GIVEN AS INPUT 
C 

290 nn 300 J=1|NIN 

300 LAMIN(JJ = RADINU IPVTHINU ) 

DC 310 J=1,N0UT 

310 LAMOUTIJI = RADOUTf Jl*VTHOUTIJI 
C 

C — FORMAT STATEMENTS 
C 


122 



n n r> r> 


1000 FCPWAT UHll 
ICIO FCRWAT (1615) 

1020 format (?X, 16( 2X»I S)) 

1030 FCPMAT (8F10.5) 
lOAO FORMAT (lXf8G16.7) 

1050 format (20A4) 

1100 FORMAT (///4X,20HGENERAL INPUT 0ATA/7X, 3HGAM , 1 4Xt 2HAR 1 13X, 
14HMSFL* 11X,5H0MEGA»11 Xt6HRE0FAC»10X,6HVElT0Lf lOXtAHFNEW, llXt 
24HCN EW) 

1110 FORMAT (95H MBI MRO MM MHT NBL NHUB NTIP 

1 NIN NOUT NBLPl NPPP NCSTAT NSU ' 

1120 FORMAT (25H LSFR LTPL LAMVT) 

1130 format (//MX,29HMUB AMD SHPCUO INPUT DATA/7>r5HZ0MIN,llX» 

1 5HZOMBI,llXt5H7CMBOtlOX,6HZGMCUT) 

1140 format (7X,UH7HU0 ARRAY) 

1150 FORMAT (7XfllHRHUe ARRAY) 
lUC FORMAT (7XtllH7TIP ARRAY) 

1170 FORMAT (7X,llHRTIP ARRAY) 

lieC FORMAT (7//4X,21HUPSTREAM INPUT C AT A/7X ♦ 4HZM IN * 1 IX, 4H7T IN ) 

1100 FORMAT (7X, IIHSFIN ARRAY) 

1200 FORMAT (7X, 12HRACIN ARRAY) 

1210 FORMAT (7X,10HTIP ARRAY) 

1220 FORMAT (7X, IIHPRIP ARRAY) 

1230 FORMAT (7X,12HLAMIN ARRAY) 

1240 FORMAT (7X,12HVTHIN ARRAY) 

1250 FORMAT ( 7//4X, 23HOOWN STREAM INPUT 0ATA/7X,5H7HCUT,10X,5HZTGUT) 
1260 FORMAT (7X,12HSF0UT ARRAY) 

1270 FORMAT (7X,13HRADt?UT ARRAY) 

1280 FORMAT (7X, IIHPROP ARRAY) 

1250 FORMAT (7X,13HLGSCUT ARRAY) 

,1300 format (7X,13HLAMCUT ARRAY) 

1310 FORMAT (7X, 13MVTHQUT ARRAY) 

1320 format (///4X,54H8LA0E MgAN CAMBER LINE ANC THICKNESS INPUT 
1 CATA/TX, 10F7BL ARRAY) 

1330 FORMAT (7X,10HRBL ARRAY) 

1340 FORMAT (7X,11HTHBL ARRAY) ... 

1350 FORMAT (7X, IIHTNBL ARRAY) 

1360 FORMAT (/ //4X ,31HCUTPUT STATION LOCATION CATA/7X,11HZHST ARRAY 
1 ) 

1370 FORMAT (7X,11H7TST ARRAY) 

13F0 format (///4X,40HOUTPI)T STREAMLINE FLOW FRACTION 0ATA/7X,11HFL 
IFR ARRAY) 

1350 FORMAT (///4X, 2BM0UTPUT PRINT CONTROL DATA /6X ,48HI ME SH ISLINE. 

IISTATL IPLCT TSUPER ITSON ICEBUG) 

1400 FORMAT (54H1 MM ,MHT ,NHUB ,NTI P ,M N ,NOUT ♦ NBLPL ,NPP F ,NCST AT , NS L, LS FR, 
ILTPLtCR LAMVT IS TOO LARGE OR TOO SMALL) 

RETURN 

ENO ■ 


SIBROUTINE INPLCT 

— INPLOT PLOTS THE UPSTREAM AND DOWNSTREAM INPUT FLOW VARIABLES 
—AS WELL AS the INPUT BLADE SECTIONS FROM HUB. TO SHROUD 
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common/ INPUTT/r,AM,AR,MSFLf OMEGAtREOFACtVELTOLf FNEK»0NEW,HBI ,MBOt 

1 mm,hhT»NBL»^HUB,NT IP,NIN»NCUTfNBtPLfNPPP,NOSTAT,NSl.l-SFR, 

2 LTPLfLAMVT,TKESH,I SLI NE, I STATL» I FtGT , I SUPER » ITSCfC, IDEBUC t 

3 /OMIN, 7CMBI» ZOMeo, ZOMOUT, 7HlNf Z T INtZHOUTfZTCUT ,7HUB< 50» f 

A RHUB(501 tZTIP«50>,RTIP<501»SFlN(50l tRA0INI50)tTIP(50)»PRIPf 50J, 

5 LAMINf 50)»VTH1N(50) -►SFOUTtSC) *RAD0UT(50) ,PRCP 150) tlOSCUT <50lt 

6 LAM0UT(50),VTH0UT(50), ZMSTf 50)*ZTSTf 50) ,FLFR< *0) t 

7 7BL< 50,50) ♦RBU50,50>*7HBU50f501,TNBL(50, 50) 
C0MM0N/CALC0N/MMM1,HHTP1,CP»E ^P0N,TGR0G ,PI TCH,CUPVHI ,CURVTI , 

1 CURVHO,CURVTO,R»-IN,RTIN,RHOUT,RTOUT,RLEH,RLETtRTEH,RTET, 

2 ZLEf 50) ,RLE<50) ,ZTE(50) ,RTE(50 ) , ZLEOMf 101 ) , PL EOM (101 ) , 

3 SLEOM( 101),THLEOM( 101),ZTECP( 101) tRTEO«( ICl) , STEOMdOl ) , 

4 THTEOMdODfUEdOl) tITE(101),ZOM(lOO, 101),ROM( 100,101), 

5 SOM( 100,101) ,TCM(100. 101) ,BTH(ICO,101 ) ,OTHCS(lOO ,101 ) , 

6 DTHOT( 100, 101), PLOSS( 100, 101), CPHII 100,101) ,SPHII100, 101) 
common/ INTITL/TITLEI (20) 

dimension MBL(50,5C),RTHBL(50,5C) tSTHBLl50,50) ,PTHBL(50,50), 

1 RRTHeL(50,50),SSTHBL(50,50),PPTHBL(50,50) , 

2 DTHDM(50) ,ANG(50),PLTX(101 ),PLTY(101),GRAC(101), 

3 TITtl(9),TlTL2( 8) ,TITL3( 5) ,TITL4(0) ,TI TL5 (8 ) ,TITL6(9) ,TITL7(6), 

4 TITL8(9),TITL10ll3),TITLll(6),TITL12(6),TITL13('i) , 

5 TITL14(2),TITL15(5),Tmi6(5),TlTLl7(5),TITLie(5),TITL19(5), 

6 T!TL20( 5),TITL21( 5),TITL22( 5) ,TITL24(10) ,711125(9) 

REAL MRL,LAMIN,LAMOUT,LOSOUT,LRNG 


DATA 

TITLl/' INL«,»ET 

A',*BSOL* 

,'UTE 

•TOTA','L TE', 'MPER't'ATUR* 

It *E 
DATA 
1/ 

DATA 

'/ 

TITL2/' INLE' ,'T 

AB', 'SOLU* 

, *TE T', 

•OTAL',' PRE','SSUR','E • 

TITL3/MNLE*, *T 

AB», 'SOLI" 

, *TE W, 

•HIRL*/ 

DATA 

TfTL4/'INLE','T 

AB*,'SCLU» 

,*TE T* , 

• ANGE' ,*NTIA','L VE','LOCI* 

1, *TY 

DATA 

1/ 

DATA 

'/ 

TTTL5/'CUTL«,*ET 

A','8S0L* 

,'UTE ', 

•TOTA','L PR',*ESSU','RE • 

TITL6/»0UTL*,*ET 

A', *esoL • 

,'UTE 

'TOTA','L PR't'ESSU' ,'RE L' 

1,»CSS »/ 




DATA 

TIU7/'0UTLS‘ET 

AS'BSOL* 

,'UTE ♦, 

♦WHIR','L •/ 

DATA 

TITL8/ «ni)TL«, 'ET 

A', 'BSOL' 

,'UTE 

»TANG»,'ENTI •♦•AL V','ELOC 

1, »ITY « / 




DATA 

TI7L10/'INPU',*T 

BL' ,'AOE 

•♦'SECT' 

,' IONS' ,'$C1$' ♦*L2FR« , 

l» OM 

Z't'BL, S'REL,', 

• THBS'L, 

T', 'NBL 

'/ 

DATA 

Y£YLll/» P»,'LADE',« SEC 

• ,'TION* 

,' NC.','XXXX'/ 

DATA 

TTTL 12/'C0mb *, 'INED', • 8LA 

','OE S' 

,'ECTI* ,'CNS • / 

DATA 

TITL13/«STRE','AM F','UNCT 

•♦•ION « 

/ 

DATA 

TITL14/' RA','OIUS'/ 



CATA 

TITL 15/* INPU', *T 

AR», 'RAY 

TI' 

,'P • / 

DATA 

TITL16/' INPU' ,'T 

AR't'RAV 

PR' 

,*IP •/ 

DATA 

TITL 17/«TNPU' ,'T 

AR» ,' RAY 

» LA» 

,'MIN •/ 

data 

TITLIB/'INPUS'T 

AR', 'RAY 

VT* 

,'HIN •/ 

DATA 

TITL19/' INPU' ,'T 

AR« 4* RAY 

PR' 

,*np •/ 

DATA 

TITL20/'INPU»,'T 

AR' ,'RAV 

• ♦'- LO* 

,* SOUT'/ 

DATA 

TITL21/* INPU','T 

AR', 'RAY 

LA* 

, 'MOUT'/ 

DATA 

TI TL22/' INPU* ,‘T 

AR* ,' RAY 

•♦•- VT* 

♦ • HOUT • / 

DATA 

TITL 24/'BLA0','E 

S' , 'ECU 

*,'0N • 

.'MERI* ,'DICN' ,' AL ', 


1» CrOR* , • DINA* , *TE */ 

data TI TL25/' TANG' ,'ENTl* ,* AL C » , ' OtPD' I NAT* , » E - »,'RACI», 
1»US*T', 'HETA'/ 

DATA BLNK/' */ 
data SYM/»X'/ 

IF ( IPLOT.l E.O) RETURN 
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c 

C— PLOT TITLE OM ^^ICROFILW 

r 

CilL LRSIZEI0.0r20,0«0. 0,10.0) 

CALL LRCHS7I4) 

CALL LRL^ONfTlTLEI, 80, 0,1. 0,5. 0,1.0) 

CALL LRCHSZ12) ' 

CALL LRSIZEIO. 0,10. 0,0.0, 10.0) 

CALL LRMON 

CALL LRXLEOIBLNK,!) 

CALL LRMOFF 
C 

C— prepare for PLOTTING OF INLET CONCITtONS 

C 

!F (LSFR.EO.l) GO TO 20 
PLTYfl) » SFIN(l) 

PLTYUOD » SFINCNIN) 

DEL * ISF1N1NIN)-SFIN< 1))/100. 

DC 10 J*2,100 

10 PLTYIJ) = PLTYl J-D+DEL 

BRNG « AMIN1(SF1N(1),SF0UT( in 
TRNG » ANAXlfSFIN<NlN),SFCUT IKCUT) ) 

GO TO 40 , 

20 PLTYm = RAOINI 1) 

PLTYflOl) = RAOIMNIN) 

DEL » fRADIN(NIN)-RAOIN( 1))/100. 

DC 30 J*2,100 

30 PLTY(J) = PLTYM-D+OEL 

BRNG a AMINKRAOINI l),RAOOUT( m 
TRNG » AMAXl<RADIK(N!N),RAOOUT<NOUT)l 
C 

C— PLOT INLET ABSOLUTE TOTAL TENPERATURE 
C 

40 LRNG - TIPIl) 

RRNG * TIP(l) 

DC 50 J*1,NIN 

LRNG a AHINlf LRNG,TIPU)) 

50 RRNG a AMAXURRNG.TIP* J)) 

CALL LRNRGNa.0,1.0,2.0,1.0) 
call LRANGE(LRNG,RRNG,8RNG^TRNG) 

CALL LRGRIDf 1, I, 11-0, 11.0) 

CALL LRCHS7I4) 

CALL LRLEGNCTITL1,36,0^1.0,0.5^0.0) 

CALL LRCHSZ^Z) 

CALL LRLEGNCTlTL15,20,b,4.0,l -3,0.0) 

IF (LSFR.EO.O) CALL LRLEGNC TI TL13,16 ,l , 0.2 ,4.2 ,0-0 ) 

IF (LSFR.EQ.1) call LRLEGN(TITL14,8, 1,0.2,4.7,0.C) 

CALL LRCHSZ14) 

IF (LSFR.EO.O) CALL SPLINT! SFIN,TI P,NIN,PLTY, 101 ,PLTX,GBAO) 
IF (LSFR.EO.l) CALL SPL INT!RACIN,T1P,NIN,PLTY, 101,PLTX,GRAO) 
CALL LRCURV(PLTX,PLTY,101,2,SYP,0.0) 

IF (LSFR.EO.O) CALL LRC UR V! TI P ,SFI N ,NIN,4, SYV, I- C) 

IF (LSFR.EO.l) CALL LRCURV (T IP,RAC IN,N IN, 4, SVM , 1 .0 ) 

C 

C— PLOT INLET ABSOLUTE TOTAL PRESSURE 
C 

LRNG a PRIP(l) 

RRKT, a PRIP(l) 

DC 60 J=1 ,NIN 
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ri o r» o o n 


LRMG = AMINltLRNG^PRI P<JJJ 
60 RR^'n = AMAXl<RRNG,PRIPf jn 

CAU LRANGPfLRNG,fiRNr,, BRKP,TBKGI 
CALL LRLEGNr TI TL2 ,32, 0, 1. 6» 0- 5 »0. 0) 

CAIL LRCHS7<21 

CALL LRLEGNfTTTL16,20,0,4,0,1.3,0.0 » 

IF aSFR.FO.O) CALL LRLEGNf T1TL13,1 6,1 ,0.2 ,4.2 ,0,0) 

IF (LSFR.EC.U call LRLEGN(TITL14,8,1,0.2,4.7,C.C) 

CALL LRCHS?C4) 

IF (LSFR.EO.OJ CALL SPL INT( SF I N ,PRI P ,NI K , PLTY , 10 1 , PLT X,GRAD I 
IF (USFR.EO.U CALL SPL INTf RADIN,PR !P,N IN,PLTY, 1C1,PLTX,GRA0) 
CALL LRCURV(PLTX,PLTV,10l,2,SVf',0.0) 

IF (LSFR.EQ.O) CALL LRCDRVI PRI P,SFI N,NI K, 4, SYM,1.0) 

IF ILSFR.EC.I) call LRCUBVtPRIP,RADIN,NIN, 4,SYM, l.OI 

— PLOT INLET ABSOLUTE WHIRL 

IF (LAMVT.EO.l) GO TO 80 
LRNG = LAM INI 11 
RRNG » LAMTNIII 
on 70 J-1,N!N 

LRMG = AMIN1ILRNG,LAMINIJH 
70 RRNG * AMAXHRRNG,LAMINUn 

CALL LRANGEILRNG,RRNG,RRNG,TRN6I 
CALL LRLEGNIT ITL3, 20, 0, 2 .5, 0 .5,0 .0 > 

CALL LRCHS2I21 

CALL LRLEGNITITL17,20,0,4.0,1.3,0.0) 

IF (LSFR.EC.Ol CALL LRL EGNIT ITL13, 16, 1, 0. 2, 4 .2, 0 ,C I 
IF ILSFR.FO.il CALL LRLEGNIT ITL14,8 ,1 ,0.2 ,4.7, 0.0 1 
CALL LRCHS7I41 

IF ILSFR.EO.O) CALL S PL INT IS F IN, L AM IN,N IN, PLTY, 1C1,PLTX,6RA0 1 
IF ILSFR.EO.l) CALL SPLl NT! RA0IN,LAPIN ,NI N, PLTY , 101 ,PLTX ,GR AC I 
CALL LRCURVIPLTX, PLTY, 101,2, SVM,C. 01 
IF ILSFR.EO.Ol CALL LRCURV IL AM IN, SF IN,N IN, 4,SYM, 1,0 1 
IF ILSFR.EO.l) CALL LRCUR VI LAMIN , RADI N,NI N ,4 ,SYP ,1 ,0) 

GC TC 110 

— PLOT INLET ABSOLUTE TANGENTIAL VELOCITY 

80 LBNG = VTHIMl ) 

rrNG * VTMINIll 
DO 90 J*1,NIN 

LRNG = AMINl ILRNG,VTH1NIJ) I 
GO RRNG * AMAX1IRRNG,VTHI NIJl) 

CALL LRANGEILRNG,RRNG, BRNG,TRNG) 

CALL LRLEGNITITL4, 36, 0,1.1 ,0.5,0.01 
CALL LRCHSri2) 

CALL LRLEGNIT ITL18, 20, 0, 4.0, 1 .3, 0.0 1 
IF ILSFR.eO.O) CALL LRLEGNIT 1TL13, 16, 1,0. 2, 4. 2, 0,0) 

IF ILSFR.EO.l) CALL LRLEGNI TI TL 14,fl , 1 ,0. 2 , 4. 7,0. C) 

CALL LRCHSZI4) 

IF ILSFR.EO.O) CALL SPLI NTISFIN,LAWIK,nI N, PLTY, 1 01, PLTX, GRAC I 
IF ILSFR.EO.l) CALL SPL INTI RAOIN, LAMIN.NI N ,PLTY, 1 01 ,PLTX,GRAD) 
RINSC = RTIN*»2-RHIN*»2 
on 100 J=l,101 

IF ILSFR.EO.O) PLTXIJ1=PLTXIJ)/S0RTIRHIN**2*PLTYIJ)*RINS0) 

100 IF ILSFR.EO.l) PLTX <J ) = PLTX fJ l/PLTY IJ 1 
CALL LRCURVI PLT X, PLTY, 1 Cl , 2 , SYR , C. 0 ) 

IF ILSFR.EO.O) CALL LRCL'R VI VTHIN , SF IN ,N IN , 4, SYR, 1. 0) 
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o o non o n o 


IF flSFR.EC.l) CALL LRCURVIVTHlNfRACINtNTNt^tSYM,l,0> 

-prepare for PLCTTlNr, OF OUTLET CONDITIONS 

lie IF fLSFR.EQ.l) 00 TO 13C ' ’ 

PlTYdl = SFOUTdJ 
PLTYdOl) = SFCUTfNOUT) 

DEL = ( SFOUTINOUTI-SFOUTI II 1 /ICO, 

DC 120 J=2»100 
120 PLTYIJI = PLTYU-l l+OEL 
CO TO 150 

130 PlTYdl = RACCUTd) 

PLTYIlOll * RADOUTINOUTI 

DEL * (RADOUTINOUTI-RAOOUTI II I /lOO. 

DC 140 J=2»10C 
140 PLTYIJI = PLTYIJ-l l+OEL 

-PLOT CUTLET ABSOLUTE TOTAL PRESSURE 

150 IF ILTPL.EC.ll 00 TO 170 
LRNG a PROPdl 
rrNG = PROP! II 
OC 160 J=l»NOUT 
LRNG » AMINKLRNGtPROPIJII 
160 RRNG * AMAXlIRRNGfPROPIJII 

CALL LRANGE(LRNG»RRNG, BRNG,TRNGI 
CALL LRLEGNITITL5t32tO»l ,5,0.5*0.01 
CALL LRCHS7I2I 

CALL LRLEGNITITL19, 20,0,4. 0,1. 3, 0,01 
IF ILSFR.EO.OI CALL LRLEGNIT ITL13,16,l,0.2,4.2,0 .01 
IF (LSFR.EO.l) CALL LRLEGNf TI TL 14, 8 , 1 ,0. 2, 4, 7, C. Cl 
CALL LRCMS7I4) 

IF ILSFR.EO.OI CALL SPLtNTISFCUT,PRCP,NCUT, PLTY,10l,PLTX,GRACI 
IF ILSFR.EO.il CALL SPLINTI RAOOUT,PRCP,NOUT,PLTY;101,PLTX»GRAOI 
CALL LRCURVIPLTX,PLTY, 101,2, SYR, 0,01 

IF ILSFR.EO.OI CALL LRCURVI PRCP,SFOUT,NOUT,4,SYM ,1 .01 
IF (LSFR.EO.il CALL LRCURVIPROP, RAGOUT, NOUT, 4, SYP, 1.01 
GC TO 190 

—PLOT OUTLET ABSOLUTE TOTAL PRESSURE LOSS 

170 LRNG = LOSOUTIll 
RRNG * LOSOUTI II 
OC 180 J*1,N0UT 
LRNG = AMINII LRNG, LOSOUTI Jl I 
180 RRNG a AMAXlIRRNG.LOSOUTIJl) 

CALL LRANGEILRNG,RRNG,BRNG,TRNGI 
CALL LRLEGNITI TL6, 36, 0,1. 0,0. 5,0.01 
CALL LRCHS7I2I 

CALL LRLEGMTITL20, 20, 0,4. 0,1.3, 0.01 
IF ILSFR.EO.OI CALL LRLEGNI T1TL13,1 6,1 ,0.2 ,4.2 ,0 .0 1 
IF ILSFR.EC.I) CALL L RL EGN I T ITL 14, 8, 1,0.2 ,4.7, C. Cl 
CALL LRCHS7I4) 

IF ILSFR.EO.OI CALL SPLINTI SF0UT,L0S0UT,NGUT,PLTY,101 ,PLTX,GRACI 
IF ILSFR.EO.il CALL SPL INTIRACOUT,LOSOUT,NnUT, PLTY, 10l,PLTX,GRADl 
CALL LRCURV(PLTX,PLTY,101 ,2 ,SYP,0.0| 

IF ILSFR.EO.OI CALL LRC UR VI LOSCUT ,SFGUT,NCUT , 4 ,SYP ,1.01 
IF ILSFR.E0.11 CALL LRCUBV IL0SCU7, R ACOUT,NOUT, 4, SYM, 1.01 



n n n n r> o n o 


..PLPT nun ET APSnUJTE WHIRL 

i<;c IF (lamvt.fo.I) g(3 to 210 

LPNO = LAMOUTI 1) 
rrKCt = LAMCUT a ) 
on 200 J* 1 ,N 0 UT 

LRNG = AMINKLRNGiLAMOUTIJI ) 

200 PRNG = AMAXlfRRKGtLAMOUTUn 

CALL LRANGEf LRNGf RRNG ,BRNGtTR^G» 

CALL LRLEONIT ITL7t2^»0,2,0,0,5»0.0) 

CALL LRCHS7<2) 

CALL LRLEr,N(TITL21,20»0,4.0,l«3t0.0) 

IF (LSFR.FO.O) CALL LRLEGNIT ITl 13, l€t 1» 0. 2» 4. 2, 0 -0 » 

TF (LSFR.EO.l) CALL LRLFGNI T IT114,8 »1 »0 .2 ,4.7, 0 .0 > 

CALL LRCHS714) 

IF (LSFR.EC.O) CALL SPL INT (SFCUT,L AMOUT,NOUT,PLT V, 10l,PLTX,GRA0 J 
IF fLSFR.EO.ll CALL SPLI NTf RACCUT,L APCUT ,NCUT, f LTY ,101 , PLTX ,6RAC I 
CALL LRCURV(PLTX,PLTY, 101, 2,SYM,0.0) 

IF (LSFR.EO.O) CALL LRCURV«LAMOUT,SFOUT,NOUT,4,SYP, 1.0) 

IF ILSFR.EO.l) CALL LRCURV<LAMOUT,RAOOUT,NOUT,4 ,SYP,1.0) 

GC TC 240 

—PLOT OUTLET ABSOLUTE TANGEKTIAL VELOCITY 

210 LPN'G * VTHCUTfl) 

RRNG = VTHOUTIl) 

GO 220 J*l,NOl)T 
LRNG * AMINKLRNGtVTHOUTfJII 
220 RRNG = AMAXlf RRNG,VTHCUTUn 

CALL LRANGE(LRN6,RRN6, fiRNG,TRNC> 

CALL LRLEGN(TITL8,36,0,1.0,0.5,0.0) 

CALL LRCHS7<2) 

CALL LRLEGN<TITL22,20, 0,4.0, 1.3,0.01 
IF (LSFR.EO.O) CALL LRLEGNIT ITL13,16 ,1,0. 2 ,4 .2, 0 iO ) 

IF (LSFR.EO.l) CALL LRLEGNf TI TL14,8 , 1 ,0. Z, 4. 7, C. C) 

CALL LRCHS7C4) 

IF (LSFR.EO.O) CALL SPLI KT( SFCUT ,LAPCUT , NOlPT , PLTY, 101, PLTX, GRAD ) 
IF (LSFR.EO.l) CALL SPLINT! RADOUT,LAPOUT,NOUT,PLTY,101 ,PLTX,GRAO) 

RCUYSQ = RTCUT^^a-BHOUTS-^a 

00 230 J=l,101 

IF (LSFR.EO.O) PLTX( J)’=PLTX(J)/S0RT(RH0UT««2+P17V( J)*ROUTSO) 

230 IF (LSFR.EO.l) PLTX <J) = PLTX (J )/PLTY (J ) 

CALL LRCURV(PLTX,PLTY, 101,2, SYR, 0.0) 

IF (LSFR.EO.O) CALL LRCURV! VTFOUT, SF0UT,N0UT,4,SYP, 1. 0) 

IF (LSFR.EO.l) CALL LRCURV( VTFCUT,R ACCiUT, NOUT, 4,SYM, 1.0) 

— plot input 8LACE SECTIONS 

— CALCULATE BLADE SECTION PLCT COGPCINATES ALONG RERICIOKAL PLANE 
240 DC 250 JN*1,NBLPL 

RBL(1,JN) = 7PL(l»JN) 
on 250 IN*2,NPPP 

250 MPL(IN,JN1 = NBL(IN-1,JN)+SORT((Z0L( IN,JN)-7.BL(IN“1,JN))**2+ 
KPBLn N, JN)-RBL( Il^-l ,JN))**2 ) 

C — CALCULATE TANGENTIAL PLOT COORDINATES 
DC 260 .1N*1,NBLPL 

CALL SPUNF( MBL( I , JN) , THBL! 1 , JN ) ,NPPP,OTHC«, ANC) 

DELRTH = (PBL( 1,JN)+RRL(NPPP,JK))/2.*PITCH 
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OC 2AO IN=1 ,NPPP 

ANn(TN) = ATANfRBLd Nf JK)*DTHCP< IK) ) 

helt = TNRt ( IN, JN )/cos< anghn n 

PTHPLUNtJN) * RPLnN,.JK)«THBL(IN,JN) 

S7HPUTN, JN) = RTHBL(IN,JN)+DELT/2. 

PTHPLUN, JN) = RTHBLUN, JNJ-CELT/2. 

RRTHPtf IN, JN) = RTHBKI N, JN)+CELRTH 
SSTHPLI IN,JN > = STH8LI IN, JN)+DELRTH 
26C PPTHRte IN, JN) = PTHPL II N , JN ) *C EL RT H 
C — CALCULATE RANGE OF PLOTS, ANO SET UP FOR PLOTTING INDIVIDUAL 
C--PLADE SECTIONS 

LRNG = MBLIl,!) 
rrNG = MRLI NPPP, 1) 

BPNG * PTHBLfl, 11 

TRNG = SSTHBL(NPPP,NBLPL» 

DO 270 JN=1,NBLPL 

LRNG = AMINl(LRNC,MBL UtJNH 

rrnG = AmaX1(RRNG,WBUNPPP, JN'I) 

no 270 IN*1,NPPP 

BPNG = AMIN1(BRNG,PTHBHIN,JN )) 

270 TRNG * AMAX1(TRNG,SSTHBL*IN, JM I 
RRTEM = RRNG 
OELLR = RRNG-LRNG 
DELRT = TRNG-BRNG 
DELRNG = ANAX1(DELLR,0ELBTI 
RRNG = LRNG40ELRNG 
TRNG * BRN'G+OELRNG 
CALL LRANGEf LRNG, RRNG, BRN6, TRNG) 

C— PLOT PLACE SECTIONS ANO SHOW SOLIDITY 

CALL LRLEGNfTITLlO, 52, 0,2.7, 0.7, 0.0) 

DO 280 JN*1,NRLPL 
CALL LRCHS 7f3) 

CALL LRCNVTUNfl ,TITL11I5), 1,4,0) 

CALL LRLEGNITITL ll,24,0,3.0,«).5,0.0) 

CALL LRCHS7I2) 

CALL LRLEGNfTITL24,40,0,2.8,1.3,0.0 ) 

CALL LRLEGNITITL25,36,1,C.2,3.3,0.0) 

CALL LRCHS Z 14) 

CALL LRCURVfWBUltJN) ,RTHBLn,JN),NPPP,2,SVM,0.0) 

CALL LRCURVIMBLI 1,JN),RTHBL( 1,JN),NPPP,4,SYM,0.CI 
CALL LRCURV<NBLU,JN),STHBL(l,JN),NPPP, 2, SYM,0.O) 

CALL LRCUPVIMRU l,JN) ,PTHBLCl,JN) ,NPPF,2,SYM,0.0) 

CALL LRCIJRV(MBL( 1, JN),RRTH8L( 1,JN) ,NPPP ,2, SYN,C. C) 

CALL LRCURVfYBLU ,JN) ,RRTHBLIl,JN),NPPP,4,SVM,0.0) 

CALL LRCURVfMBLf 1,JN) , SSTHBL ( I , JN) ,NPPP,2 ,SY«,0.0) 

280 CALL LRCURV(PBL(l,JN),PPTHBL(l,JN),NPPP,2,SYM,l,Cl 
C--CALCLLATE RANGE OF PLOT, AND SET UP FOR PLOT OF MULTIPLE 
C— BLADE SECTIONS 
RRKG * RRTEM 

TRNG * STHBL<NPPP,NELPL) 

DO 290 JN’=l,NBLPL 
or 290 IN*1,NPPP 

290 TRNG = AMAXl(TRNG,STHaLUN, JN)) 

OELBT * TRNG-RRNG 

DELRNG = AMAXKCELLR, DELBT) 

RRNG = LRNG+OELRNG 
TRNG * BRNG+OELRNG 
CALL LR AN GE <LRNG, RRNG, BRNG, TRNG) 

C — PLOT MULTIPLE BLADE SECTIONS 


129 



O O O O n n 


CALL LRCR I0(3,3tll.C* ll,C> 

CALL LRCHS?(3) 

CALL LRLEGN<TITL12,24,0,3.4 t9.5,0.0) 

CALL LRCHS7(2) 

CALL LPLEGN(TITL2A,40,0,2.8tl.3,0«0l 
CALL LRLEGNf TITL25»36tl tO. 2t3. 3,0.0 ) 

CALL LRCHS7<4J 

ECP = 0,0 

DO 300 JN=1,NRLPL 

IF (JN.EO .NBLPL ) E0P=1«0 

CALL LRCURVfMRUl ,JNI,RTHRLU,JN»tNPPP, 2,SYM,0.0) 
CALL LRCURVfMBLC 1,JN) ,RTHBLC1,JN) ,NPPP ,4 , SYM ,0.0 } 
CALL LRCURV(MPL<1,JN»,STHBH l,JNI,NPPP,2,SVW,0«0) 
3C0 CALL LRCURV<«BLa ,JN>,PTHBL(1,JN),NPPP,2,SYM,ECPI 
CALL LRCURV(ZRL,RRL,0,1,SYH,1.C) 

RETURN 

END 


SUBROUTINE MESHO 

— PESHO CALCULATES COCPOINATES OF AN CRTFGGONAL MESH 
— COVERING THE SOLUTION REGION 

CCMM0N/INPUTT/GAM,AR,MSFL,0MEGA,RECFAC,VELT0L, FNEM,ONEW,MBI,MBO, 

1 mm,mhT,NRL ,nhub,ntip,nin,nout,nblpl,nppp,kcstat ,NSL,LSFR, 

2 LTPL,LAMVT, IHESH, ISL IN£, ISTATL, IPLOT, I SUPER , I TSON ,IOEBUG , 

3 70MIN,70M8I,Z0MB0,Z0MCUT,ZHIN,7TIK, ZHOUT, 7TCUT, ZHU8(50l, 

4 RHUBf 50J,7TIPI 5C»,RTIPI 501 ,SFINI SOI ,RA0IN(5C) ,TIPI50) , PR IP 1501, 

5 LAMIN(50),VTHIM501,SFOUTCSO),RACOUT t50),PROP(50I,LOSOUT(50l, 

6 LAMOUTI SOI ,VTHOUT<50I , ZHST (501 , ZTST (50 ) , FLFR (50 I , 

7 7fiL(50, 501, R8L(50, 501, THBL( 50, 501 , TNBL( 50,50 
CCMM0N/CALC0N/MMMI,MHTP1,CP, EXPON,TGROG,P ITCH,CURVHI,CURVTI, 

1 CURVHO,CURVTO,RHIN,RTIN,RHOL'T,RTOUT,RLEH,RLET ,rteh,rtet, 

2 7LE(50 ),RLE(50), ZTE(501,RTE( 501,ZLE0M( 10ll,RLECM( 1011 , 

3 SLEOM( lOll ,THLE0M(101 I,ZTECM(101 ),RTEO«(1011,STEOM(lOll, 

4 THTEOM( 1011,ILE( 1011 ,ITE( ICIJ ,ZOM( 100, 1011 ,R0P ( 100 ,101 1 , 

5 SDM(100,1011,TOM(100,101 J,BTH( 100, 1011, OTHDS( 100,1015 , 

6 OTHOT( 100,1011 ,PLOSS( 100 ,1011 ,CPH I (100, 101), S PH I (100, 1011 
CCMMnN/CROSCM/RTMP( 100),S0RIV( 100) , REF Z ,REFR , REF SL , MARK 
OIMEKSICN RRA0(l00,lOl),SL0M( 1001, AAA( 100) 

EXTERNAL CROSCO 
MARK = 1 

CALL CR0SCC(7CMn,l),RMR,SLl) 

MARK = 0 

— STORE RRAO ON HUB CONTOUR 
DO 10 I=1,NHUB 
10 RPA0(I,11* RHUBdl 

— CALCULATE RRAO ON SHROUD CONTOUR 

CALL SPLINT(ZTIP,RTIP,NTIP,ZHUB,NHUB,RRAD( 1,MHTP1) ,AAA) 

— COMPUTE RRAO ON RADIAL LINES FROM HUB 70 TIP 
OC 20 T=1,NHUR 

OELR = (RRAO(I,MHTPH-RPAC(lf 1)»/FLCAT(MHT 1 
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no o o n on 


on 20 .N2»MMT 

20 RRA0(I,j|= RRAC( It J-U + CELR . , . 

--CQMptTF Zd« ON HUR 
MPIPI = MRI-l " 

0^7= IZONBl-rCRUI/FLCATIMeiNU 
70M( It U= 70MIN 

or 30 T= 2 ,Mei 

30 ZCM(Itl)- 70MU-1 tl ) + DELZ 

DEL7 = fZOMRO-ZOMRI) /FLOAT! MBO-MBI) 

VPIPI = MRin 
00 40 I=MBIP1 tMPO 
40 70MUt H= 70M( I-ltl)*0EtZ 

0EL7* (70MGUT-20WeO)/FLCAT! MH-NBO) 

MBOPl = MBO+l 
00 50 TsMBOPltMM 
50 7CMIltl>= 70M(l-ltlUDEL7 

— COMPUTE ENTRIES TO 70H AND ROM ROW BY ROW FROM HUB IC SHROUD 
DO 150 J*2tMHTPl 

— CALCULATE R-COCRC INATESt SLOPES t ANC ANGLES OF PREVIOUS ROW 

CALL SPLI NT! ZHU8 tRRAOIl t J-l 1 1 KHUB, ZCM II t J-1 1 » MW, P0M( 1, J-l It SLOM 1 
DO 60 I*ltMM 

CPHIIltJ-n = 1,/SCRT U.*SLQMni**2l 
60 SPHI(ltJ-ll = SLOMIIIPCPHI II t JtU 

C — CALCULATE RTMP, ANC SECOND CERIVATIVESt SORlVt ON PRESENT ROW 
DO 70 I*ltNHUB 
70 RTMPin* RRADIItJl 

CALL SPLINEIZHUBtRTMPtNHJBtAAAtSORIVl 
C ■ . ^ . 

c — move along present ROWt ONE POINT AT A TlMEt LCCATIK6 ZCM . 

C — CCCPCINATES OF ORTHOGONAL MESH POINTS ALONG THE ROW. 
no 140 I»ltMM 
REF7- 70MI I»J-U 
REFR* ROMlIt J-U 
DC BO K=2tNHUB 

IF I ZHUBIK ).LT.ZOM| GO TO 80 

DELR = RRACIK-lt J»-RRAOlk-l,J-U-IZOM|I,J-ll-7HUBIK-lJ|/ 

II 7HUBIK)-7HUBIK-1) »*IRRA0IK-1 tJ)“RRAOlK-l, J*ll-PPACIKt J »♦ 
2 RRACIKtJ-in 
GC TC 90 
80 CONTINUE 

90 IF I ABSISLOMI in.LE. 0.00011 GO TO 120 
C 

C — LOCATE INTERSECTICN CF LINE NORMAL TC PREVIOUS ROW WITH PRESENT ROW 
REFSL= -l./SLOMI II 
DELZ= OELR/REFSL 

IF I ABSIREFSLl .GT. 10. I OELZ=OELR/SIGNI10. tREFSl I 
IF IREFSL.lt. 0.1 GO TO 100 
A= ZCMlItJ-11 
B= A*2.0*DFL7 
GC TC 110 
ICC B= 7CM(I,J-U 
A* B+2.0*DELZ 
110 TCLER= DELR/llO. 

IFIABSfSLOM|in.LE..Oll TOLER = TCLER/ABS ISLCMf I nP.Ol 
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CiLL RODT eA,R,0«»CROSC0,TOLER,71#SLll 
Rl* REFR+REFSL*<Zl-REF7) 
no TO 130 


— LCCATE INTERSECTION IF NORMAL TO PREVIOUS ROW IS RACIAL 
120 REFSL* 0, 

CALL CROSCCaOMI I,J-1),RMR,SL1> 

71* ZCMUfJ-1) 

R 1= RMR 

— CALCULATE FINAL LOCATION OF ZOM 
130 72» I70Mn,J-n + CRCM<I ,J-l|-Rll*SLl + Zl*SLl+*2)/n.+SLl**2) 
R2« Rl+SL 1*(7 2-Zl) 
lAC 7CMU,J)= (7l + Z2)/2, 

150 CONTINUE 

— CALCULATE R-C00RCINAT£St SLOPESt AND ANGLES OF FINAL ROW 
CALL SPLTNTiZHUBtRRAOa ♦MHTPl) ♦NHUB, ZGMll , MHTPl ) ,MM, 
1R0M(1,MKTP11,SL0MI 
OC 160 1*1 »PM 

CPHin,HHTPlI * l,/S0RTIl. + SLGI*m*P2J 
160 SPHKIfMHTPlI = SLOW! 1 1*CPHI ( I *HHTP II 
RETURN 
END 


SUBROUTINE CROSCCI Z,RMR, SL 1 1 

-CROSCD CALCULATES R AS A FUNCTION OF 7 . ALONG A CURVE AND ITS 
-INTERSECTING STRAIGHT LINE» AND COMPUTES THE DIFFERENCE BETWEEN THE 
-VALUES OF R ON THE STRAIGHT LINE AND CURVE FOR A GIVEN VALUE OF 7. 

COMMON/ INPUTT /GAM, ARtMSFL,OMEGAtREOFAC»VELTOL,FNEW,DNEW,MBI ,MB0, 

1 HM,MHT,NBL,NHUB,NT IP,NIN,N0UT,N8LPL,NPPP,N0STAT,NSL,LSFR, 

2 LTPL,LAMVT,IMESH,I SLINE, I STATL, I PLOT ,I SUPER ,I TSCN, IDEBUG^ 

3 7CMIN, ZOMBI, ZOMPO, ZOMOUT,ZHIN,ZTIN,7HOUT,ZTOUT,ZHUB(50I , 

4 RHUBI50I ,7TlP(50l,RT!P(50>9SF!Nf50)oRADINI50l9T!P!50ls,PRIPI50}, 

5 LAMINC 50),VTHIN<50),SFOUTf 501 ,RA00UT(50) ,PRCP(50I ,10SCUTI50I, 

6 LAMOUT C50),VTH0UT<50 I, ZHST < 50 1, ZTSTI 501,FLFP( 501 , 

7 7RL( 50,50) ,RBL(50, 50) ,THBL(50 ,50 ) ,TNBL < 50,50) 
C0MM0N/CR0SCM/RTMP(100|,S0RIV( 100) ,REFZ ,REFR , REF 5L , MARK 
IFf MARK,EO.l) RETURN 

C— LCCATE POSITION OF Z IN ZHUB ARRAY 
DO 10 I*2,NHUB 
IF < Z.L E.ZHUBI in GO TO 20 
10 CONTINUE 
C 

C— COMPUTE R-COORDINATE IRCURV) AND SLOPE C SL 1) ON THE CURVE 
C— FOR THE GIVEN VALUE CF Z 
20 0EL7 * ZHUBm-ZHUen-l) 


SCI * 

SDR IV( I) 

sen 

= soRivn-n 

ZHMZ 

= 7HUB(I)-Z 

ZM7H 

= Z-ZHUBII-1) 

RTI = 

RTMPm/OELZ 
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(<■^ 11 * RTWPn-n ^DELf 
RCURV = SDIl*ZHMZ**3/6.rnELZ» 
l*7M7H+< RT[l-SCIl*DELZ/6, ) + ZHM 
SLl = -SOI l»ZHMZ*#2/2. /OELZ ♦ 
1 (SCI - S DUl*nEL7Z6- 
IF CREFSL.EC.O.) GC TO 30 


SDI*Z«ZH**3/6./DElZ*IRTI-SDI*D£L7/6,) 

Z 

SCI*ZMZH**2 /2« /DEL 7 ♦ PT I - RT 1 1 - 


C 

c — COMPUTE R-COOROTNATE tRLlNEI ON STRAIGHT LINE 

c— for given value of 7 

RL1NE= REFR+REFSL*I7-REF7l 


C 

C--cCMPt'TE CIFPERENCE IK R-COOROINATES 
RMR= RCURV-RLINE 
RETURN 


C 

C — SPECIAL CASE FCR RACIAL STRAIGHT LINE 
30 RMR = RCURV 
RETURN 
EK'D 


SUBROUTINE PRECAL 

— PRECAl CALCULATES MAKY OF THE REQUIRED FIX EC CONST AKTS 

COMMON'/ INPUTT/GAM< ARtMSfL»OMEGA*REOFACt VELTOL fFNEW tONEW»MBI «M8Q t 

1 MM,MHT»NBLtNHUB»NTIPfNIN»NOUT»N8LPLfNPPP,NOSTAT,NSL»LSFR, 

2 LTPLfLAMVT»1MESH*I SLINE f I STATL 1 1 PLCT 1 1 SUPER *I TSCN ♦ I DEBUG t 

3 70M1N, 7CMBI, ZCMBOt 7OM0UT, ZHIN»ZTIN,7H0UT,7TCUT, ZHUBI 50) » 

A RHUBI50) ♦ZTIPISOI tRTIP(50 ) tSFINISO )» RADI N 150) tT IP (50 )♦ PR IP ( 50 ) t 

5 LAMINf 50I,VTHIN( 50) , SFOUTI 501 ,RA00UT( 50) ,PRCP (5 0) , LOSCUT (50) , 

6 LAMCUT(5O)»VTH0UT(5O)t7HST(5O)t7TST( 50)tFLFP( 50) t 

7 7RL( 50,50) fRRL(50»50) tTMBL (50*50) »TNBL(50f 50) 

COMMQN/CALCON/MMM l,HHTPl,CP*EXPON*TGRQGtPI TCHtCURVHI »CURVTI « 

1 CURVHOtCURVTCtRHINtRTINt RHOUT, RTOUT»RLEH»RLET ,RTEHtRTET * 

2 7LE( 50) »RLE(50) *7TE(50) tRTE(50) tZLECMdOl )* RLEGMdOl )* 

3 SLEGMdOl )*THLEQM( 101)*7TE0M( 101 )* RTEDM ( 101 ) » STEOM( 101) » 

^ THTEOMdOl) tILEdOl) *ITEd01) ♦ ZOMflOOtlOl ), RCM( 100* 101), 

5 SDMf 100, 101) ,TOM( 100 ,101) ,6TH( 100,101) ,OTHDS (100,1 01), 

6 OTHDT( 100,101 ) ,PLOSS ( 100 , 101 1 , CPH I ( 100, 101 ),SPH I( ICO, 101 ) 
DIMENSION DYDX(100),,DYOX2(100),TTEM(100),RELTCP(50) 

REAL MSFL,LAMDAF,LAMIN,LAM0UT,LAMDAI,L0S0UT 

— INITIALIZE TIPF, RHCIPF, LAmdAF, RHOOPF, AND RVTHTA 

CALL LAMNIT 
CALL RVTNIT 
CALL TtPNIT 
CALL RHINTT 

C— CALCULATE PROP, IF LCSCUT NAS GIVEN AS INPUT 
d (LTPL.EQ.O) GO TO 20 
DC 10 J=1,NCUT 
TTNP = TI PF( SFOUT( Jl) 

LAMDAI = LAMDAF(SF0UT( J ), 1, 1) 

TCP = TOPFISFCUTUn 

PRYNP * RH0IPF(SFCUT(.)))*AR*TIKP 
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RFLTfP(J» = 1,-lOSOUTU) 

10 PRf!P(J) = ReLTrPrn^PRINP^ITOP/TINPJ^ftGAM^EXPOM ) 

2C. CALL RHONIT 

— INITIALI7E THF BTH ARRAY 

on 30 J*1,MHTP1 
or 30 l=l 

3C BTH( PITCH 

— TMTIALI7E THE FLPR ARRAY IF IT HAS NOT READ TN 

IF fNSL.OE.n GO TO 50 
NSL * 11 
FLFPm = 0. 

FLFRfllJ = 1.0 
00 <»0 J=2flO 

AC FIFRU) = FLFR(J-l)+0.1 
GO TO 80 

— SET END PGINTS FOR FLFR ARRAY 

50 TP (FLFRm.EO.O.I GO TO 70 
TEWPl * 0, 

DO 60 JL=ltNSL 
TEMP2 « FLFRULI 
FLFRIJLI * TEHPl 
60 TEMPI = TEMP2 
NSL = NSL+1 
FlFRfNSLI = TEMPI 
70 IF ( FLFRf NSL). EO. 1.01 GO TO 80 
NSL » NSL+1 
FLFRCNSLI = l.O 

—CALCULATE SOM FROM THE ZOM,ROM ARRAYS 

60 00 90 J«l,MHTPl 

SCMdtJI = 0. 

00 90 I»2»M“ 

PO SOM( I,J). S0MCI-l,Jl+SQRTUZ0Nn,J»-2C«(I-l,J) »**2+IRCMn,J)“ 

IRfMl I-l tJi j **2) 

-CALCULATE TOM FROM THE ZQM,ROM ARRAYS 

no 100 I®1»MM 
TGMf I. 1) = 6, 

DC 100 J*2,MHTPl 

ICO TOMf I , T0M( I , J-1 )+SORTUZGM<I t J)-ZCM( I. J-l ) )**2 + IR0M < I, J >- 
IR0M( I, j-i 1 )**2) 

-CALCLLATE CURVATURES ON HUB AND SHRCUC 
-AT ENTS OF ORTHOGONAL MESH 

CALL SPLINE(70Mfl ,l»t ROM(l»l » ,RH,CYCX »DYCX2) 

CUPVHI* DY0X2( n /( 1,+DY0X( 1)**2)**1.5 

CURVHD* 0YCX2 (MM)/ (1.+DYDX<MM)«*2)**1.5 

CALL SPLI NEfZCMf I ,MHTPl I ,R0 m< 1 ,MHTPl) , mm, CVCX t CYCXZ > 

CURVTI= DYCXZn )/( l.+OYOX( 1)*+2)**I. 5 
CLRVTO* 0YTX2 (MP|/ ( I . «CYCX f MM | *«2 ) +* 1 .5 
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C — CALCULATE LEAHINr EDGE ARRAY, ZLE,RLE ,ERnw ZBL AND RBL ARRAYS 
C — CALCUIATE INTFPSECTICN OF LEADING ECGE WITH HUB AND SHROUD PROF I LE S 
C ... 

CO 110 JN=l,NBLPL , - • 

7LEIJN) = 7PU1,JN) 

no RLEIJN) = RBLI 1, JM , - ‘ . 

CALL INRSCT(7HUB,RHU8,NHUBfZLE,RLE,NBLPL,ZLEH,RLEH) 

CALL INRSCT(7TIP,PTIP,NTlP,ZLE,RLEfNPLPLt7LET,RLET) ’ 

--CALCULATE TRAILING EDGE ARRAY* ZTE*RTE .FROM Z8L AND RBL ARRAYS ' < 
— CALCULATE INTERSECTIONS OF TRAILING EDGE WITH HUB AND SHROUD PROFILES 


00 120 JN*l,NBLPL 

ZTEIJNI = ZBL(NPPF,JN> '* 

120 RTFIJN) « PBLINPPP.JNI . .. 

CALL INRSCT(ZHUR,RHUB,NHUBtZTE,RTE,NBLPL.ZTEH.RTEH> ' 

CALL rNRSCT(ZTIP*RTIP,NTlP,ZTe,RTE,NeLPL» ZTET.RTEt) . 

C ' ■' 

C--CALCULATE ORTHOGONAL «ESH ARRAYS AT THE LEADING EDGE 
C — 7L60H,RLEOH,SLEOR*THLECM 

C — CALCULATE ILE ARRAY CF MESH POINT LCCATICNS INSICf ElACE 
C— LEAC ING EDGE ‘ ' 

c ■ ■■ "■■■'•' 

7LE0MI IJ * 7LEH 
RLEOM(l) a RLEH 
ZLECmimHTPII = ZLET 

RLEOMfMHTPU * RLET ' 

DC 110 J=2.MHT 

13C CALL INRSCTI 70M( l*J) .RCMI 1 1 J ) ♦ NM , ZL E *RL E* NPLPL* ZLEOM ( J I ♦RLEOMI J 1 1 
00 1 60 J=l*MHTPl 
DC 140 1*1 

IF I ZLEOMI J).LE. ZOMII ,jn GG TC 150 
140 continue 
15C TLEf J) * 1 
ILEJ = I-l 

160 SLEOM(J) * SOMf lLEJ*jnSQRTnZLEOM( J)-ZOMULEJ.J>»**2+(RLEOV( J»- 
IRCMIILEJ, JU**2> 

no 170 JN*1*NRLPL , 

170 TTFWfjNI = THBLCl.jN) i ' ' ' ' ' ' ‘ ‘ 

CALL SPLINTIRLE,TTEMtNBLPL*RLECM,MHTPl,THLEOM,CYCXl •' 

C 

C — CALCULATE ORTHOGONAL MESH ARRAYS AT THE TRAILING EDGE' > 

C — 7TE0M,RTE0M,STECV*THTECM 

C — CALCULATE ITE ARRAY CF MESH POINT LOCATIONS INSIDE PLAOE ' 

C— TRAILING EDGE 

C ■ - 

7TE0ML 1) = ZTEH i . . , , ■ 

RTFCMH ) = RTEH , : 5 ? 

7TECMfMHTPl> = 7TET 

RTEOMIMHTPn * RTFT • " ' ' ‘ ‘ ‘ ' 

DC IBO J*2,MHT . . ! 

180 CALI !NRSCT(7CMI1 , J) ,RCM11 , J »,MM,7TE,RT E* NBLPL.ZTEOMU »,RTE0MU I ) 
DC 210 J=1,mhTP1 ' 

tlEJ * lLEfJ)-l i . 

DC 190 I=!LEJfMM * > “ ' . ' 

IF ( ^TEOM(,J I.LT.ZOMII , Jl) GO TC 200 
190 CCNTINUE 

SCO I IF( J) = !-l ‘ ' 



TTE.J = t-1 

210 STEOM(J) = S0MmEJ,J|+SCRT(17T6OWfJ|-*?0»MTTEJ»J )M*2+fRTE0M(J>- 
IROMf ITEJ, Jl )*#2) 
on 220 JN=l,N8LPL 
22C TTEMUN) = THeUNPPP.jM 

CALL SPLlNTfRTE,7TEI*«NRLPL,RTECH»»»HTPl,THTEnP,i:YCX J 
C 

C— CALCULATE THETA GRACfEN'TS CN THE ORTHOGONAL MESH 
C 

CALL THETOM 
C 

C— CCRRECT BTH FOR BLADE THICKNESS GN THE ORTHOGCNAL MESH 
C 

CALL THIKOH 
C 

C — CALCULATE ACTUAL-TO-I DEAL RELATIVE TOTAL PRESSURE RATIO 
C — CCWNSTREAM OF BLADE, AND CALCULATE LOSS ON ORTHOGONAL MESH 
C — CORRECT BTH FOR TOTAL PRESSURE LOSS 
C 

CALL LOSSQM 
C 

C — REDUCE MASSFLOW, WHEEL SPEED, AND WHIRL FOR REDUCED FLCW SOLUTION 
C 

IF (reofac.eq.1.0) return 

OMEGA * 0«EC-A*REDFAC 
MSFL * MSFL*REDFAC 
DO 230 J=1,NIN 
LAMINIJI » LAMINI J)«REOFAC 
230 VTHIN(J) * VTHINCJ 1*RECFAC 
DO 2 AO J=1,N0UT 
LAMOUTUI* LAMOUTU)*REOFAC 
2A0 VTHOUT(J) » VTHOUTIJ)*R60FAC 
C 

C — RE- INITIALIZE LAMOAF AND RVTHTA FOR REDUCED FLOW 
C 

CALL LAMNIT 
call RVTNTT 
RETURN 
END 


SUBROUTINE THETOM 
C 

C— THETCM CALCULATES THE DERIVATIVES CF THETA WITH RESPECT TO S AND T 
C — DIRECTIONS ON THE ORTHOGONAL MESH 
C 

CCMHCN/INPUTT/GAM,AR,MSFL,aHEGA,RECFAC,VELTCL, FNEW, DNEW, MBI ,M60 , 

1 mm,mht,nbl,nhub,ntip ,nin,nout,nblpl,nppp,ngstat ,NSL,LSFR, 

2 LTPL,LAHVT, IMESH, ISL INE, ISTATL, IPLOT, I SUPER , ITS0N,1DEBUG , 

3 ZOMIN, ZOMBI, ZCMBO,ZOMOUT,ZHIN,ZTIN,ZHOUT, 7TCUT, 7HUPI50), 

4 RHU8(50),7TIP< 5Cl,RTIP(50) ,SFI Nf 50» , RAOI Nl 50 ,TIP(50) ,PR1P<50 I , 

5 LAMIN{5oJ,VTHIN( 50»,SFGUT(50I,RACOUT(50»,PROP(50J,LOSOUT< 5Cl , 

6 LAM0UT( 501 ,VTH0UT(50» ,7HST<50» ♦ ZTST(50 J , FLFP 150 1 , 

T 7BL 150,50 >,RBL< 50, 501, THBL ( 50, 501 ,TNBU 50,50 

CGmmoN/CALCCN/MBMI ,MHTP1,CP, EXP0N,TGR0G, p ITCH, CUPVHI ,CUR VTI , 

1 CURVHa,CURVTG,RHlN,RTlN,RHOUT,RTOt'T,RLEH,RLET,RTEH,RTET, 
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? 7LE<50 ), PLE(5C)t 7TE(50),RTE< 501,ZtE0Mf ICIJ ICU » 

3 SLECMdOU ♦THLEOM<lOn,7TECvn0n,RTEOM(lOl)tSTECMflOl)» 

4 THTEOMUODrlLEI 101» ,ITE< ICl) tZOWaOOtlOl) ,RCRa00,10Ut 

5 SC«U00«10ll»T0Mfl00.l01)»eTHf lOO»l01l*OTHOS( lCO»ltll t 

6 OTHDTl I00»10l) »PL0SSU00,l01),CPHm00,l0U,SPHm00, 101) 
COMMON/ IN nCOM/7 PC ( ll»50)«RPCI 11,501 ♦OTHOZIlltSC) tCTHOPIll ,50) 

DIME NS I ON THPCdl ,50) ,ANG7.< 11,50), ANGRIll, 50), CTEOSPI 11,50) , 

1 DTHDTPI 11,50) ,SZRBLI50) , S ZRPC 150 ) , ZT E«I50) , RT EM (50 ), ITEM <501 , 

2 OY0X(50),DY0X2( 501 
C 

C — CALCULATE GRADIENTS OF THETA MITH RESPECT TO DISTANCE ALONG INPUT 
C— ZEL, RRL LINES 
C 

C— LOCATE INTERSECTIONS OF INPUT ZBL,RBL LINES WITH LINES FROM 
C— hUR to TIP AT TEN PERCENT CHORD INTERVALS 
or 50 JN=1,N6LPL 

OELZ» 0.l*(78L(NPPP,JN)-ZBLIl,JN)l 
TPC(l,3N)« ZBL(1,JN) 
or 10 KN^2,ll 

10 7PC(KN,JN)= ZPC lKN-1, JNl+DELZ 

C--CALCULATE R COORDINATES AND ANGLES WITH RESPECT TO Z AXIS AT 
C — INTERSECTION POINTS 

CALL SPLINT(ZBL( l»JN),RBL( I, JN) ,NPPP,ZPC< I ,JN) ,ll,RPC(l , JN) , 
IANGZn,JN) ) 

DO 20 KN==l,ll 

20 ANGZ(KN,JN) = ATANI ANGZ ( KN, JN) ) 

C— CALCULATE ARC LENGTH ALONG INPUT LINES USING INPUT POINTS 
SZRBUD* 0. 

00 30 lNs2,NPPP 

30 SZRBL(IN) » S7RBL(IN-l)+S0RT((ZBLnN,JN)-ZBL( IN-1,JN)|P*2 
l+(RBL( IN, JN)-RPL(IN-1, JN) )**2) 

C--CALCULATE ARC LENGTH ALONG INPUT LINES USING POINTS AT TEN 
C— PERCENT OF CHORD 
SZRPCI D* 0. 

CC 40 KN*2,ll 

AQ SZRPC(KN) * SZRPCCKN-l)+SORT((2PC(KN,JN)-ZPC(KN-l,JN>)*»2 
1*IRPC(KN, JN)-RPC(KN-1, JN) )**2) 

C — CALCULATE THETA AND CHANGE OF THETA WITH ARC LENGTH ALONG INPUT LINES 
50 CALL SPLINT(SZR8L,THBLI1»JN) ,NPPP,SZPPC,n,THPC(l, JN),OTHOSP( 1,JN) 
1) 

—CALCULATE GRADIENT OF THETA WITH RESPECT TO DISTANCE UP TEN PERCENT 
— CHORO ZPC, RPC LINES 

DC 80 KN=1, II 

C— CALCULATE SLOPES AND ANGLES WITH RESPECT TC R AXIS ALONG THE ' 

C— TEN PERCENT CHORO, HUB-TIP LINES 
DC 60 JN*1 ,NRLPL 
ZTEMfJN)= 7PC(KN,JM 
RTFM(JN)* RPC(KN,JN) 

60 TTFM(JN)* THPC(KN,JN) 

CALL SPLINE(RTEM,ZTeM,NRLPL,0YCX,0YCX2) 

S/RPC(1)» 0. 

AKr-R(KN,l)= ATAN(GVCX<UI 
DO 70 JN=2,NBLPL 

S7RPC(JN) = SZRPCI JN-l)+SORTtIRPC<KN,JN)-RPC(t<N, JN-1) )**2 
1+ (7PC(KN, JM-7PC(KN,JN-l))**2) 

7C ANGR(KN,JN)= ATAN(DYOXfJN)) 

C — CALCULATE CHANGE OF THETA WITH ARC LENGTH ALONG HUB-TIP LINES 
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CALL SPLrNe<S?RPC,TTEM,M?LPL»CYOX, OYCXZ ) 

DD BO JN=1»WPLPL 
80 0THDTP(KMt JN)= CYCXfJN) 

— CALCILATE OTHOZ ANO OTHOR FROM OTHOSP AND OTHDTP AT POINTS OF 

— INTERSECTION OF INPUT LINES AND FUB-TIP LINES 

on 90 JN=l,NBLPL 
or 90 KN*1, n 

CrSAB= COSf ANOZ<KN,JN>+ANGR(KN,JNn 

OTHDZIKN, JN)= (OTHDSP(KN,JN)*CCSIANGR(KN, JNn-CTFCTP«KN,JN)*SINf 
lANr7(KN,JN)» I/COS AE 

90 OIHORIKN, JM= I-CTNCSP( KK, JN )♦$ IN ( ANGRCKN , JN )) *CTFOTPIKN» JN IPCOSI 
lANGZlKNtJNIJ) /COSAB 

— INTERPOLATE TO OBTAIN DTHD? AND CTHDR AT THE POINTS OF THE CRTHCGONAL 

— PESH 

— ROTATE OTOZOM AND OTOROM ON CRTHCGONAL MESH TO OBTAIN OTHOS ANC OTHDT 
—THE GRADIENTS OF THETA 1 N THE S AND T DIRECTIONS 

II = I 
JJ = 1 

DC 100 J*l,MHTPl 
ILEJ * ILE(J) 

ITEJ = ITEUI 
DC 100 I* ILEJ, ITEJ 

CALL LININTIZPC,RPC,DTHDZ,ll,NBLPL,ll,50,ZOMfIfJ)tROMI 1,J), 
lOTCZOM, n,JJ > 

CALL LIMNTI ZPC, RPC, OTHER, 11, NBLPL, ll, 50, ZOM 1 1 , J ) ,ROMfI , J) , 
lOTDROM,!! , JJ) 

DTHDS(I,J) = 0TD20M*CPHI( I,J)fOTDRCP*SPHI (I , J) 

ICO OTHOTn,JJ = CTORCPPCPHIII, J)-CTCZOM*SPHin, J > 

RETURN 

END 


SLBROUTINE THIKCV 

— THIKOM CALCULATES THE BLADE THICKNESS IN THE THETA DIRECTION AT 
—THE POINTS OF THE ORTHOGONAL MESH 

COMMON/ INPUTT/GAM,AR,MSFL,OMEGA,REDFAC, VeLTOL,FNEH,ONE«,MBI ,MBO, 

1 MM,MHT,NBL,NHUB,NTlP,NIN,NCIIT,NPLPL,NPPP,NOSTAT,NSL,LSFR, 

2 LTPL,LAMVT,IMESH,I SUNE,ISTATL,IFLCT,ISUPER ,ITSCN,IDE6UG, 

3 ZOMIN, ZOMBI, ZOMBO, ZOMOUT, ZHIN, ZT IN,ZHOUT, Z TOUT , ZHUBf 50) , 

A RHUB(50I ,ZTIP<50),RTIP(50),SFINI50), RA01N(50),T IPI 50 ), PR IP I 50) , 

5 LAM INI 50), VTHiNf 50) , SFOUTI 50) ,RA00UT(5 0) , PRCP (50 ) ,LOSOJT (501, 

6 LAMOUT (50),VTH0UT(50),ZHST(50),ZTST( 50),FLFR( 50) , 

7 7BLf 50,50) ,RBL (50,50 > ,THBt (50,50 ) ,TNBL ( 50, 50 ) 

COMMON/CALCON /MMM 1,MHTP1,CP,E XPONtTGROG ,PI TCH ,CURVHI ,CURVTI , 

1 CURVHO,CURVTO, RHIN»RTIN,RHCUT, RTOUT, RLEH^ RL ET,R7EH,RTET, 

2 ZLE( 50) ,RLE« 50) ,ZTE(50) ,RTE(50) ♦ZLEOMUOl ) , Rl ECM (101 ) , 

3 SLEOMf 101),THLE0M( 101),ZTEGM( 101 ) ,RTEOM ( lOl I , STEOM( 101 ) , 

A THTEOMdOl ), ILE(10l),IT€(101),70M(100, 101),ROM( ICC, 101), 

5 SOM( 100, 101) ,TGM( 100,101) ,87H(l00,10l ) ,DTHCS ( 100 ,101 ) , 

6 DTHDT( 100, 101 ), PLOSS ( 100, Id) ,CPHI( 100,101) , SPHl ( 1 CO, 10 1) 
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oono r>nr»o 


OU'ENSTON nSH501 torns <50)f A^c^50 JfCRTHRL <50, 501 

— CALCULATE RLAHE THICKNESS IN THE THETA DIRECTION FRCH INPUT 

— thicknesses NCRHAL TC mean camber line 

00 20 JN=1,NBLPL 
DISTfl) * 0. 

DO 10 IN=2»NPPP 

10 OISTHNI = niSTUN*l)+S0RTH2eM INtJNI~Z8LnN-l,JN1l**2+ 
llRBLf lNtJNl-R8L(IN-l»JNl 1**2I 
CALL SPL INEID1ST,THBLI 1» JN) ,NPPP,OTOStANO) 

DC 20 IK*1 tNPPP 

A(sr,UN) = ATANf RBLUN, JM^OTOSUNII 
20 ORTHBL(INtJN) * TNBL( IN» JN I /COS ( ANG( IN11 

— interpolate TO OBTAIN BLADE THICKNESS IN THETA OIRECTICN AT THE 

— PCiNTS CF THE ORTHOGONAL MESH 

'11*1 . - 
JJ * I 

DC 30 J*l»RHTPl 
ILEJ * TLE<J» 

ITEJ = ITEIJI 

DC 30 I=ILEJ,ITEJ .. . 

CALL LININT<ZBLfRBL,DRTHBL»NPPP,NBLPL»50t50*ZCRU.J)»POMnt Jl» 
lORPTHtll, JJ) 

BTHCUJ) * RTHn,J)-DRBTH/R0MlItJ1 
30 CONTINUE 
RETURN 
END 


SUBROUTINE LOSSOM 
C 

C — IGSSCM COMPUTES THE RATIO CF ACTUAL TO IDEAL RELATIVE TOTAL PRESSURE 
C — DOWNSTREAM OF THE BLADEt AND THEN DISTRIBUTES THIS LOSS LINEARLY 
C— through THE PLACE ROW FROM TRAILING TO LEADING EDGE BY ADDING 
C—CnTO THE BLADE THICKNESS AT THE CPTHCGCNAL MESH POINTS 

C .... - ' 

CCMMCN SRWtSRE, ITER*I£NC»NREAC,NWR IT 

COMMON/INPUTT /GAM» AR »MSFL«CMEGAt RECFACtVELTCLt FNEW* DNEWt MBI»MBO» 

1 HM,MHT»NPL»NHL)B»NTIP»NIN,N0UT fNBLPLtNPPPfNOST AT tNSL»LSFRf 

2 LTPL»LAMVT»IMESH*ISLlNEt 1ST ATL» IPLOT, [SUPER t ITSONf lOEBUG, 

3 ?0MIN*7DMBI»ZCMB0tZ0M0UT»ZHINtZTIN»7H0UTt7TCUTtZHUP<50)» 

4 RHUBt50),ZTIP| 50)*RTIP( 50) *SFINI 5CI ♦RAOINI 50 ,TIP(50» »PPIP(50» 

5 LAMINI50) f VTHIN(50) ♦SFCSIT (50 ) ♦ RAOOUT 150 ) t PROP f 50 ItLOSOUTC 501 ♦ 

6 LAMOUTf 501 tVTHGUT(50)*ZHST(50) »7IST(50»»FLFP(50) » ‘ 

7 ZBL(50»50)»RBL(50»50»,THBL(50»50I,TNBL( 50t5C> 
CCMMCN/CALCCN/MMMI ,MHTP1 »CP*EXPONtTGROG,PITCHt CUPVHlt CURVT If 

1 CURVHOf CURVTO,RHIN,R7IN,RHOUT,RTnUTfRLEHfRL6T fRTEHfRTET « 

2 ZLE(50),RLE(50)f ZTE ( 50 ) t RT E( 50 1 1 ZLEOMI lOUtRLEOM( 1011 f 

3 SLFOMf loi) f THLEOMdOlltZTeCMdOnfPTeOMaODf STECMdOU, 

4 THTEOM( lODf 1LE( lOlIrlTEI ICl) fZOM( 100, 101) »PC»»dC0,10l ) , 

5 SCMdOOflODfTGMdOOf 101),eTH(l00f 101),0THDS( ICCflClIf 

6 DTHOT? 100,101) ,PL0SS(100 ,10U ,CPHI (100,101 ) ,SPHIdOO» 101 1 
DIMENSION RELTOPt 50), SF( 10 1) , GRAOf IC 1) ,PR A 71 Of ICl) 

REAl LAMDAF,LAMIN,LAM0UT,LAMCAI,L0S0UT 



ooo n r-ioor) 


— CALCULATE ACTUAL-Tn- IDEAL RELATIVE TOTAL PRESSURE RATIO 
— TN DCWNSTREAW INPUT PCUNOARY 

DC ?0 JI*ltNrilT 
TINP = TIPFISFOUTUn 
LAM0AI= LAMCAFf SFOUTf Jltlf II 
TOP » TOPF( SFCUT ( J)| 

PRINP = PHOIPFI SFOLTI J1 l♦AR♦TI^P 
IF ILTPL.EOel? GO TO 10 

RFLTCPIJI = PROP! J»/PRINP*ITINP/TOP)**IGAM*EXPON 1 
GO TO 20 

10 RELTCPU) = l.-LOSOtJTUI 
20 CONTINUE 

— CISTRieUTE LOSS ON ORTHOGONAL MESH WITHIN BLAOESt ONE ORTHOGONAL 
— PESH LINE AT A TIME 

DO 30 J*l»MHTPl 

30 SFIJI* IRCMfMM, Jl**2-ftCPIMM, 1 1 / (ROM (MM,MHTP I )♦♦^-ROM ( «M , 1 )*#2I 
CALL SPLtNTI SF0UT,RELT0P,N0UT»SF,MHTP1 ,PRAT1C,GRAC) 

DO 40 J=l,MKTPl 
TLEJ * ILEIJI 

SLENTH * STEOMf JI-SLECMIJI 
or 40 r»ILEJ,MM 

DELS * AMINKSLENTHfSOMI I,J|-SLEOP(J)l 
PLOSS(I,.n * ( l.-PRATIO( JI1*0ELS/SLENTH 
40 PTHdsJ) - RTHU. J)F(1<.~PL0SS( If Jl I 
IF (I DEBUG. LE-0) RETURN 
HR1TE(NWR ITf 1010) 

WPTTEINWRITflOOO) (( 1 1 J t SOM ( I » J >fTOM( I, J|,BTHfl, J) fOTHOTI 1 1 J), 
IPLOSSU ,J| tCPHT (I fj) fSPHin , J) ,I«l fMM) » J*1 ♦ MHT f I ) 

RETURN 

1000 FCRMAT(2I6f7G16.6l 

ICIO FORMAT! lHl////35Xf47HC0NSTANT QUANTITIES CN THE ORTHOGONAL Mg 
1SF/5X, IHIfSXf lHJ,7Xt3H$OM,l3X,3HTOM,13X,3H0THfl2X,5HOTHCTfllXf 
25HPL0SS fUXfAFCPFIf 12Xf4HSPHl I 
END 


SUBROUTINE MEPLOT 

-MEPLOT PLOTS the BLADE GEOMETRY AND THE GENERATED CRTHCGCNAL MESH 

CCMMON/INPUTT/RAMfARfMS FLf OMEGA, PECFAC, V EL TOL , fN EW,ONEW,Me I ,MBO, 

1 MM,mhT,NRL,NHUB,NT 1 P fNINf NCUT,NBLPL,NPPPfNCSTAT,NSL,LSFR, 

? LTPLfLAMVT , IMESH,ISL INE d STATL , IPLOT, I SUPER ,1 TSON ,IDEBUG , 

3 70Min, 70MBI , 7CMB0, 7QM0UTf ZHIN, ZT IN, 7 HOIIT, 7T0UT, ZHUB( 50), 

4 RHUB(50) , ZTIP( 50) ,RTIP(501 ,SFIN(50) ♦RA01N(50) ,TIP(50) , PRIP(50), 

5 LAMIN(50),VTHIN(50),SFOUT(50),RAOOUT( 50) ,PROP( 50) ,L050UT( 50 , 

6 L AMOUT ( 50) , VTHCUT(50 1 , ZH$T (50 ) , ZTST ( 50 ) , FLFR ( 50 ), 

7 2PL ( 50, 50 ,RBL( 50,50 ),THBL( 50,50) ,TNBL(50,50) 
CCMMON/CALCON/MMMi,MHTPl,CP,EXPON,TGRnG,PITCH,CURVHl,CURVTI , 

1 CURVHO,CURVT0,RHIN,RTIN,RHCUTtRTCUT,RLEH, PLET,PTEF,RTET, 

2 7LE(501,RLE(50), ZTE( 50 ), RT£( 50 ) , ZLEOMI 101),RLECMI ICl) , 

3 SLECM( lOl) ,THLE0M<101 ) ,ZTECF(lOl ) ,RTE0M( 101 ), STEOM ( 101), 
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4 THTEGM( 101 J, ILF< lot »fITE( I Cl ) « 100, 10 IJ , PCM 10C,l 01 ) , 

5 SCM(100,l0l),T0M(100,101),BTH< 100, 10 1) , OTHD SI 100,101) , 

6 OTHDTl 100,101) ,PLOSSf 100, 101) ,CPHn 100 , 101 ) , S FH I « 100, 101 I 
COMMON /-PL TC0(«/ZLRNG,ZRRNG,RBRNG,RTRNG,7HPLTI IOC) ,RHPLT(100) , 

1 7SPLT(10O),RSPLTflOO),ZLPLTaO0),RLPLT( 100),ZTPLTl 100), 

2 RTPLTUOO) 

niMENSlON TITLH 15),TITL2C 10) ,TITL3< 3) ,TI TLA( 3) ,ZTEM(101) , 
IRTEM(lOl) 

DATA TlTLl/'HUB,* SHR* ,*QUO,* ,» AAC* ,• BLA*,'C€ E* , ♦ OUND* , * AR IE* 
1,*S*C1*,*$R8I*, *N ME', *RIOI», *ONAL»,* PLA* ,»NE */ 

DATA T1TL2/' ORTH' ,'OGON* ,' AL M' , • ESH$', 'Cl *L ', '2 IN ', 'MER I ', 'DION ' 
1, 'AL P', 'LANE •/ 

0ATATITL3/'7 C','IREC','TION'/ 

DATA TITLA/'R D' ,' IREC ,'TIOK'/ 

DATA SYM/'X'Z 
DATA SYN/'O'/ 

IE flPLOT.LB.O) RETURN 
C 

C'-CETAIN PLOT POUN CARIES, ANC SCALE THE PLOT 
CALL PTRDRY 
C 

C— PICT PLACE GEOMETRY ANfc PLOT ORTECCONAL MESH 
CALL LRMRGNd, 0,1. 0,2. 0,1.0) 

CALL LRANGEf ZLRNG,ZRRNG,R8RNG,RTRNG) 

CALL LRGRICf-l, -1,1. 0,1.0) 

IPLTa I 

CALL LRLEGNCTITL 1,60, 0, 1.3, 0.7, 0.0) 

10 IF flPLT.EC.2) CALL LRLEGNIT ITL2, A0,0,3 .4, 0.7, 0.0) 

CALL LRCHSZI2) 

CALL LRLEGNITITL3, 12,0,4.5,1.5,0.0) 

CALL LRLEGN<TITL4, 12,1 ,0.4, 4.5, 0.0) 

CALL LRCHSZf4) 

CALL LRCHRVIZHPLT, RHPLT, 100, 2,SYM,0.C) 

CALL LRCURVI ZSPLT ,RSPLT ,100,2,SYM,0 .0 ) 

CALL LRCURVIZLPLT,RLPLT,100,2,SYM,0.0) 

CALL LROtRV(ZTPLT,RTPLT,l00,2,SYM,0.0) 

IF (1PLT.EC.2) GO TO 20 

CALL LRCURV17HU8,RHUB ,NHUB,4,SYM,0. 0) 

CALL LRCURVCZTIP,RTIP,NTIP,4,SYM,0.0) 

DO 15 JN=1,NBLPL 

15 CALL LRCURVCZBLCl, JN),RBLCl, JN:)^NPPP,2,SYM,0. 0) 

CALL LRCURVCZLE,RLE,NBLPL,3,SVN,0.0 ) 

CALL LRaiRVfZTE,RTE,NBLPL,3,SYN,1.0) 

IPLTa 2 
GO TO 10 

C — PLOT VERTICAL MESH LINES 
20 OC 40 1=1, MM 

ZTEM(l)= 70MUa) 

RTEM(1)= ROM! 1,1) 
or 30 J=2,MHTP1 
ZTEM(J)= ZCM(I,JJ 
30 RTEM U )* ROM! I, J ) 

4C CALL LRCURVCZTEM,PTEM,MHTP1,2,SYM,0.0) 

C — PLOT HORIZONTAL MESH LINES 
ECP= 0.0 
on 50 J=2,MHT 
IF (J.EO.MFT) E0P = 1.0 

50 call LRCURVlZCMfl,J),R0M(l,J),MH,2,SVM, EOP) 

CALL LRCURV(7TEM,RTEM,0,1,SYM,1.0) 

RETURN 

END 
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SUPRnUTFNF PTBORY 
C 

c — ptBDRY obtains* THF hub and SHROUC ANC blade LEACIKG AND TRAILING EDGE 
C— BOUNDARIES FOR PLOTTING* AND SCALES THE PLOT 
C 

CCPwON/INPUTT/GAWtARtPSFLtOPEGAtRECFACtVELTPLt FN€WtONEW,MBI*MBO, 

X MH,mhT,NBL .NHUB tNTIP ,NIN*NOUT,NBLPL,NPpPtNCST AT»NSL*LSFR, 

2 LTPL»LA«VTf INESK, ISL INE, ISTATL* TPLOT,rsUPER,ITSnN,IOEBUG, 

3 7 0MINt7OMRl,ZCMBO*ZOP0UT*ZHlN*7TlK,ZHCllT» 7TCUT* 7HUP<50I» 

4 RHUBf50),ZTIP( SCJfRTIPf 50) tSFlNISO) ,RA0IN(5C» t TIP 1 50) ,PRIPC50) , 

5 LAMIN<50),VTHIN(50) tSFOUTI 50), RAGOUT C50)f PROP (50) *LOSOUT( 5 0* 

6 LAMOUTf 50) *VTHCUT( 50) ,ZHST(50) ,ZTST(50),FLFRf50), 

7 ZeL(50,50)*RBL(50,50),THBL(50,5C),TNBL(50,5C) 

C PMMON/CA LCCN/ MHMl , MHT PI, CP, EX PON, TGROG, P ITCH, CURVHI ,CUR VT I , 

1 CURVHO*CURVTO,RHIN,RTIN,RHOUT,RTOUTtRLEH,RLET,RTEH,RTET, 

2 ZLE(50 ),RLE(50),7TE(50),RTEf 50),ZLE0M( lOUtPLEflPf ICI) , 

3 SLEOMdOl) ,THLE0«(101),ZTECP(10l),RTE0M(101),STE0W(10l), 

4 THTEOM(10U,ILE(101) ,ITE(1C1),70N(100,I01),RCPU00,101), 

5 S0M(lO0,101)*TQNU00,101),BTH( 100,101), DTHOSC ICC, 101) ,: 

6 OTHDTf 100,101 ) ,PL0SS(10O ,101), CPHUIOO, 101), SFHIdOO, 101 ) 
COMNON/PLTCOM/ZLRNG,ZRRNG,R6RNG,RTRNG,ZHPLT(10C) ,RHPLT(100) , 

1 ZSPLT(100),RSPLT(100l,ZLPLTf 100),RLPLT(100) ,ZTPLT( 100), 

2 RTPLT(IOO) 

DIMENSION AAA (100) 

C 

C— OBTAIN PLOT POINTS ON HUB 
C 

CELZ * (7HUB(NHUB)-ZHlJB(l))/95. 

ZHPLT( 1) = ZHUB(l) 

00 10 Ia2, 100 

10 ZHPLT(I) = ZHPLT( I-l )+OELZ 
^ CALL SPLINT(ZHUB,RHUB,NHUB,ZHFLT,100,RHPLT,AAA) 

C — CBTATN PLOT POINTS ON SHROUC 

^ OELZ = (ZTIP(NT1P)-ZT1P( 1))/9S, 

ZSPLT(l) = ZTIP(l) 

00 20 1=2,100 

20 ZSPLT(I) = ZSPLTC I-D+OELZ 

CALL SPLINT(ZTIP,RTIP,NTIP,ZSPLT, 100, RSPL T, AAA ) 

C 

C—OBTAIN PLOT POINTS UP BLADE LEADING EDGE 
C 

OELR = (RLET-RLEH)/S9, 

RLPLT( I ) = RLEH 
RLPLT(IOO) = RLET 
on 30 J=2,GS 

30 RLPLT(J) = RLPLT(J-1 )♦DELR 

CALL SPLINT(RLE,ZLE,NBLPL,RLPLTtlOO,ZLPLT,AAA) 

0 

C — CPTAIN PLOT POINTS UP ELACE TRAILING EDGE 

0 

DELR = (RTFT-RTEH) 

PTPLT(l) = RTEH 
RTplT(IOO) = RTET 
DO 40 J*2,9S 

40 RTPLT(J) = PTPLT (J-1 )*OELR 

CALL SPLINT(RTE,ZTE»NBLPL,RTPLT,100 ,ZTPLT,AAA) 

C 

c — calculate the range of the plot 

c 
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rt n r%n n n n 


48 


50 


60 


ZtPNG = 4MINH 7HURI II t ?TIP( in 

7RPNC = AHAXH7HUR(NNt}R),ZTIPtNTlP I) 

DO 48 J=1,MHTP1 

ZLRNG = AMIN1CZLRNG,Z0MC1,J)) 

ZRRNG = AMAXICZRRNG^ZOMCMM. J)) 

OELZ = ZRRKG-7LRNG 
ZLRNG = 7LRNG-0. 05*0ELZ 
7RPNG = 7RRNG+0.05*OELZ 
RBPMG s RHUfidI 
00 50 l*2,NHUB . 

RPRNG - AMINlCRBRNGtRHURmi 

PIPING = RTIPdl 

on 60 I-2»NTIP 

PTRNG = AMAXURTBN6»RTI,P( I) I 

DELR * RTRNG-RRPNG 

RPRNG a RBRNG-0, OS^OELP 

RTPNG = RTRNG*0.05*CELR 



-CHOOSE MAXI«U»» RANGE 


AND EXPAND RANGE IN THE OTHeX OIRECTidN 


DPC2 * l,l*ABSCDELZ-DELR)/2. 
IF IDELR.GT,DELZ) GO TO 70 
RTPNG = RTRNG+DMD2 
RRPNG a RBPNG-DNC2 
RETURN 

70 7RPNG a ZRRNG+nW02 
ZLRNG a ZLRNG-DMC2 
RETURN 
ENC 


SUBROUTINE VBORY <LOC»T I PF» RHO IPFt L AMCAF) 

— VPDRV CALCULATES THE DISTRIBUTION OF STREAM FUNCTION ALONG THE . 

— UPSTREAM AND DOWNSTREAM BOUNDARIES OF THE ORTHOGONAL MESH 

CCMMCN SRWtSREt ITER»IENCtNREAC,NHRIT - . , 

COMMON/I NPUTT/G AM ♦AR*MSFLf OMEGA ♦RE0FAC»VELT0Lt FN EWt CNEWf MB I »MRO» 

1 MM,MHTfNBL,NHUB»NTIP tNIN,NOUT.NPLPLtNPPPf NOSTAT,NSL,LSFR» 

2 I TPL»LAMVT,TMESH,ISLINE, ISTATLt I PLOT, I SUP ER t ITSON, IDEBUG , 

3 70MIN,70MBI ,ZOMBOf 70M0UT, ZHIN, ZTINt^HOUT, 7TCUTt 7HUB<50 I., 

4 RHtJBI50),7TIP( 50 1 ,RT I P ( 50 1 ♦ SFI N I 5C1 , R AD I NI 50 ,T1P(50) ,PRIPI501 

5 LAMINt50),VTHINI50J,SFOUT 150 1, R ACOUT 1 50 1, PROP 1 50 ),LOSOUT< 501 ♦ 

6 LAMniJTC 501 ,VTHCUTC50) ,ZHSTI50) ,7TST(50) ,FLFP(50l » 

7 ZRL(50,50),PBL 150, 50 1, THBL C 50, 50 1 ,TNBL( 50,50 
CCMMnN/CALCCN/MVWl ,mhTP 1 ,CP, EX FON,T GROG, PITCH, CUPVHl, CURVT I, 

1 CURVHn,CURVT0,RHIN,RTIN,RHOUT,RT0UT,RLEH,RLET,RTEH,RTET, 

2 7LEC50),RLE(50l,ZTE(50»,RTei50l,ZLEOMf 101),RLE0M(l0ll, 

3 SLFOMIlOll ,THLE0M(101 1 tZTECMClOl I , RTEOM UOl ) , ST EOM ( 101 1, 

4 THTEOMI ion, ILEI 101) ,ITEf ICn ,ZOM( 100,101) ,RCMnCO,l 01) , 

5 SCMIlOO, 101) ,TCM(100, 101), PTHtlOOflOl), DTHCSI 100,101), 

6 OTHOTl 100,101) rPLOSSIlOO, 101) ,CPHItlOO, 101 ),SFHH100, 101) 
COMMON/VAPCOM/AI 4, 100, 101), UOM( ICO, 101) ,K( 100,101) ,RHP( 1 00 , 1 01) , 

1 WSUPSH0O,101 ) fWSUBT UOO, 101),WSUB7I100, 101 ),kSUBRI 100,101), 

? VISUBMI ICO, 101) ,VlTMUG0,101) ,VTHfl00,101) ,wnoo,ioi>, 

3 ALPHA! 100, 101 ), BETA! 100, 101),WHCR! 100, 1 01 ) ,CUP V< 100,101) , 

4 HLSURFCIOO ,101) ,WTSURF <100,10 1 ), CAMP! 100,101 ), SAMP! 100, 101), 



r> on r>oo o no non 


5 RHOAVt ICOf 101) fDELRMOf 100,101) ,FR< 100,1 01 ) , CFCR (100 , 101 ) » 

6 XinwdOO, 101), ZETOMUOO, 101 ),OLnu( lOO, 101) 

DIMENSION TIPBOV(lOl) , RHOI P (101 ) , LA RPC A ( 10 1 ), A A ( 10 1 ) , PB( 101 ) , 

1 CCA ( 101) , OCR ( 1C1),WBDRY( ICl) ,BDY(4) 

REAL LAMBDA, LAMCAF.MSFL 

LCOICAL REPEAT 

EXTERNAL TIPF,RHO IPF,LANOAF 

DATA BCY/4HINLE,4HT ,AH0UTL,4HET / 

— SET INITIAL WHUB AND OELMA X 

IL= 1 

IF (LOC.GT.l) IL*3 
CURVH = CURVFI 
CLRVT = CURVTI 
IFILOC.EO. 1) GO TO 10 
CURVH * CURVHO 
CLRVT * CURVTO 
10 J7 = 1 

RMEAN = (RCM(L0C,l)+R0M(L0C,«HTPll)/2. 

RH01P(1)= RH0IPFU5) 

WSMs MSFL/RH0IP( D/RMEAN/PI TCH/TOM(LOC,MHTP1) 

WIHETA* LAMCAF(.S ,LOC,l )/RMEAN-OMEGA*RMEAN 
WHUB = SORT! WSM**2+WTMETA**2) 

DEL MAX * WHUB/ 20. 

RTDLER = l.e«4 

— CALCULATE INITIAL ESTIMATE OF TIP,RH01P ,AND LAMBDA 

RH2 a RGM( LOC ,l)**2 

DELR2 a R0M(L0C,MHTPl)442-RH2 

DC 20 J*1,MHTP1 

WFLF a (ROM(LOC,J)**2-RH2) /0ELR2 
UCM(LOCtJ) a WFLF 
TIPBOY(x))* TIPF(WFLF) 

RHOIP(J)a RHOIPF(WFLF) 

20 LAMBOA(J)* LAMCAFlWFLFtLOC, J ) 

NCOUNT = 0 

--CALCULATE COEFFICIENTS A, B, AND C FOR THE VELOCITY GRADIENT EQUATION 
?C DO AO Jal,MHTPl 

AA(J) a CURVH+TOM(LOC, J )/T0M(LDC,MHTPI) *(CURVT-CLRVH) 

0MR2 a OMEGA*RCM(lCC, J)**2 

BB(J) a -(LAMBDA! J)<-0MR2)/R0MIL0C ,J)4424(AA(J)4fLAPBDA(J)-0MR2)« 

I (LAMBOA(.t)*OMR2)/RnMILOC,J)*CPHI(LOC ,J)) 

40 CCKTINUE 

no 50 j=i,mht 

CCA(J)a CP*(TIPBCVU + 1 )-TlPBOY( J ))-0MEGA*(LAMB0A(J+1)-LAMBDA( J) ) 

50 CCP( J) = (CP-AR)*(TIPflOY(J+l)-TIPRDY (J) )-AR/ (RHPIP(J)+RH0IP(J+1 ))♦ 
1(TTPBCY(J )+TIPBDY( Jtl n*(RHOIP( J+ l)-RHOIP(-l) ) 

— SOLVE THE VELOCITY GRADIENT EOUATICN ALONG THE BCUNCARY 

REPEAT a .FALSE. 

UOM(Lnc,l) a 0. 

60 INOa 1 

7C WPCRYd ) a ViHUP 
NCOUNT a NCOUNT+1 
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WSO= wpnRY«l)*»2 

Z,*rWEGA«L/l^'POAf 1 l-<OMEC/»*«nM<LOC, 1 
TTIP- l.-f WSO+TVLWRI /CP/TI PBOYU )/2. 

IF (TTIP.LT.O.I GO TO 100 

RHnV( * RMOIPU J»TTIP**EXPCNPWPCPYU) 

SINRTA = ( tAMPlDAf n /RC»<LOC»H-GMEGA*RnP(LCC»l »)/WBCRY(l) 

IF ( APSIS TN'BTM .GT.l.) GO TO SC ' 

CrSPTA * SCRT(1.-SINPTA**2I 

rvA = ftHnw*CnSRTA*RnM(LOC»lJ*PITCH 

nr 80 -!=i,PHT 

DELTAS TO^*ILOCf J«-l >-TCYfLCC, JJ 
CC » CCAIJ )-CCB( J)*TTIP 

mas * MRDRYIJ)*(l. + AAU »*DELTA)+BBCJ)/MBDRYI J)*DELTA*CC/VIBORY<JI 
WSO * WAS**2 

TWLHR * 7 ,* 0 MEGA*LAMB 0 A(J+n-(CPEGA*RC»»IL 0 C, J+n )P»2 
TTIP s l.-(ttSC+TWLMR|/CP/TIPRCVfJ + U/2. 

CC * CCA(J)-CCB(J)»TTl P 

MASS s WBORYIJI*AAtJ*l)*MAS*DELTA+BB«J<-l)/MAS*CELTA+CC/HAS 
WPCRYIJ+l ) » IMAS+«ASS»/2. 

WSO * MBORYI J+l)**2 

TTIPs 1.-(WS0*TWLMR1/CP/TIPBDY(J*1) /2« 

IF (TTIP.LT.0.1 GO TO 100 

RHOW a RHaiPfJ+l}*TTIP**EXPON»WBDRY( J*n 

SINBTA = ILAMBCA(J + l)/ROMILOC*J*l)-nMEGA*ROM(LOC ID /MBORYI J+1) 

JF f ABSISINBTAl.GT.l. ) GO TO 90 

COSRTA = SQRTI 1.-SINBTAPP2) 

rVAS* RHOW + COSRTAPROMILOCtJ ♦imp ITCH 

U0HIL0C»J+1) = I RVA^RVASM0ELTA/2.^UCP| LOCt J) 

80 RVA= RVAS 

-CHECK CONTINUITY ANO ESTIMATE NEW VALUE FOR W AT HUP 

TFCIND.GE .6 .AND.ABSCMSFL-U0MCL0C,MHTP1)) . LE .MSFL’'RTOLER) GO TO 120 

CALL CONTI NIMHUBtUGMI L0C»MHTP1) t t NO ♦ JZ, PSFL , CELK AX ) 

IF I INC.LT.IO) GO TO 70 
IF flNO.EO.lOl GG TO 120 
GO TO 110 

90 WHUB® HHU6+.5»DELMAX 

IF ( NCOUNT.lt. lOOCJ GO TO 60 
GO TO 1 10 

100 WHU8 = WHUR-. 5+CELMAX 

IF I KCOUNT.lt. 1000* GO TO 60 
110 MRTTEINHR IT» lOlOI BOY! ID tBOY(IL+ II 
STOP , 

— SOLUTION OBTAINED. UPDATE TI P,RHOIPt ANC LAMBCA 

J 

120 CONTINUE 

no 130 J=2fMHtPl 
FPAC = UOMILOCt J 1/HSFL 
UCMfiOCtJI ■= FRAC 
TVAR= TIPFIFRACJ 

IF (ARSITVAR-TIPROV<Jl)-GT.TIPBOYlj)*RTOLER> REPEATs.TRUE. 
TIPBOYDIs tvar 
TVAR = RHOIPFfFRAC) 

IF I ABSITVAR-RHOIPIJI ).GT.RHGIPfJ)*RTOLER) REPEA 1* .TRUE . 

RHOIPIJI a TVAR 

TVAR a LAMDAFIFRACfLOCtJ) 

IF (ABSITVAP-LAMRnAUI).GT.AfiSILA»BDAM)MPTOLER) REPEAT*. TRUE. 



non 


130 Li^'PrAfJ) = TVflP 
WHIJR- WPDRYtll 

IF (REPEAT .AND. NCnUNT.GE.lOOOJ GO TO 110 
TP (REPEAT) on TO 30 
TP ( IND.NE. 10) RETURN 

WRTTECNWRITt 1000 ) BCY( IL),eOY( IL + 1 ) ♦ UOM( LOC> MHTP 1) 

STOP 

ICOO FORNAT ( 26HL PASSAGE IS CHOKED AT THEt2A4^,2lH WITH A NASS FLOW OF 
If P14.6) 

1010 FORMAT (2HL f2AAf39H BOUNDARY CONDITIONS CANNOT PE OBTAINED) 

END 


SUBRCUTINE INIT 

— INIT ASSIGNS INITIAL VALUES TO THE ARRAY VARIABLES 

CCMMON/INPUTT/GAMfARfMS FL»OME(?A, RECFAC, VELTOL, FNEN,ONEW,«BI ,MBO, 

1 MMfMHT,NflL»NHUB,NTIPfNIN,NOUT,NBLPL,NPPPfNOSTAT»NSLtLSFR, 

2 LTPLfLAMVTflMESHtlSLINE, ISTATL« IPLOT, I SUPER , I7SON, IDEBUG , 

3 7 OMI Nf7 OMBI ♦ TOMBOt ZOMCUT » ZHINt ZT IK*ZHQUT , ZTCUTf 7HUB(50) t 

4 RHUB(50I»ZTIP( 50),RTIP( 50),SFIN(5C» ,RADIN( 50 fTIP(50) ,PRIP(50), 

5 LANIN(50),VTHlN(50)fSFaUT(50)tRAC0UT{50)fPROP(50),LOSOUT(50l ♦ 

6 LAMOUTC 50) tVTH0UT(50) »ZHST(50) »ZTST(50) ,FLFR(50), 

7 7BL(50f 50 )» RBL (50» 50)tTHBL ( 50 1 5C )f TNBLI 5C»5C) 

COMMON/CALCCN/MMHI f MHT pi tCPf EXFONf TGROGf P ITCHf CURVHI»CURVTIf 

1 CURVH0,CURVT0tRHIN,RTIN,RHmfT,RT0UT,RLEH,RLET,RT6HfRTET, 

2 ZLE(50)f RLE(50)f ZTE( 50 )f RTE( 50 ) ♦ ZLEOM( 101),RLECM( 101) t 

3 SLEGMf 101) f THLEOMdOUfZTECNllOl ),RTE0M(l01>, STECMdODf 

4 THTEOM( 101)tILE( 101)»ITEflCll tZOMdOOflOl) f RCN( 1 OOtlOl ) , 

5 SCM(100,101),TOM(100flOl),BTH( 100, lOlJ,nTHDS( 1CC,10U , 

6 0THDT( 100,101) fPLOSSIlOO, 101) ,CPHI C 100 ,101 ) ,S FH I ( 100, 101) 

COMMON /VAR COM /A ( 4,100, 101) ,UOM( 100, 1 Cl) ,K ( 100,101) ,RHO( 1 00 ,101 ) , 

1 WSUBS(100,101 ),WSUBT(lOO,l 01 ),MSUeZ( 100, 101 ),VSUBRf 100 , 101 ), 

2 ViSUBM( 100,101) ,fcTH( 100,101) ,VTH( 100, 101 ) ,)i( 100 ,101 ) , 

3 ALPHA! 100, 101), BETA ( 100, 101),W«CR( 100, 101) ,CUPV( 100,1 01 ) , 

4 HLSURF (100, 101), WTSURFd 00,101), CAMP (100, 101 ) , SAMP 5 100, lOU, 

5 RHOAV! 100,101) ,DELRHC ( 100,1 Cl ) ,FR ( 1 00, 1 01 ) .DFCN (100 ,10 1 ) , 

6 XIOMdOO, 101 ), ZETOM( 100, 101),DLDU( 100, 10 I ) 

REAL K 

PHOIP s RHOIPF( 0. ) 

DO 10 J=1,MHTP1 
OC 10 1*1 , MM 
WSUBSdtJ) * CPHIdtJ) 

WSURT(I,J) = -SPHI(I,J) 

WSURT(l,J) = 1, 

W(I,J) = 0. 

WTFf( I, J ) = 0. 

VTH(I,J) = 0. 

RHOd.J) = PHCIP 
RHOAVd,J) * RHOIP 
DELRHOdtJ) * 0. 

XinMdfJ) = 0. 

ZETOMf dJ ) = 0. 

PR(I,.l) * 0. 

DPDMd^jJ , 0. 
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0 


ntnun^j) = 
10 K f 1» J) = 0, 
RETURN 
ENC 


SUBROUTINE COEF 

— COEF CALCULATES COEFF ICIENTSt A AND K, 

— FCR THE SYSTEN OF MATRIX ECUATIONS» A*0*K 

COMMON SRWtSRE, ITERt lENO^NREADfNWRlT 

CCMMON/ INPUTT /GAM *AR,MSFLt OMEGA, RECFACfVELTOLt FNEW,0NEW»MB I ,MBO, 

1 MM,MHT,NBL,NHUB,NT1P,NIN»NCUT,NBLPL»NPPP»NCST AT,NSL,LSFR, 

2 LTPL,LAMVT,IM£SH,ISLINE, ISTATL, I PLOT, I SUPER , ITSON, IDEBUG , 

3 Z0MIN,7CMBl ,TOMBO, ZOMOUT, 7HIN, 7TIN,ZH0UT, ZTCUT, ZHUPISOI, 

4 RHUBf50),ZTIP( 50I,RT!P( 50),SFIN( SCI ,RADIN( SOI ,TIP(50I ,PRIPt5Ql * 

5 LAMIN(50I tVTHINfSOl ,SFOUT ISO 1 , RACOUT ISO l,PROP f SO 1 ,L0S0UT( SOI , 

6 LAMOUTISOI ,VTHOUTISOI ,ZHST<501 fZTSTCSO) ,FLFR(501, 

7 ?flLf50,50),RBL(50,50lfTH6H50,5QI,TNBL«5C,SCI 
CCMMON/CALCCN/MMMI ,MHTPl ,CP, EXPON,TGROG,P ITCH,CURVHI,CURVTI, 

1 CURVHO,CURVTO,RHIN,RTIN,RHnUT,RTOUT,RLEH,RlET,RTEH,RTET, 

2 7LEt50ltRLE(50),ZTE(50),RTE<501,ZLEOM( lOlltRLEOMflOl), 

3 SLECMflOl J ,THLEOMn011,ZTECMaOU,RTEOMfl01)t STEOMf ion, 

4 THTEOMC 101), ILEf 1011, ITEI ICll ,ZOMaOO, 1011 ,RCMaC0,l01 1, 

5 SCMflOO,l01),TOM(100,10ll,BTH< 100, lOl) ,DTHOS( 100, 101) , 

6 OTHOTI 100,101) ,PLGSSUOO,101) ,CPHI ClOO ,101 1 ,S PH I (100, 10 1 1 
C0MM0N/VARC0M/A< 4, 100, 101) ,UOM( 100, 1011 ,K( 100, 101) ,RHOUOO,10l ) , 

1 WSUBSf 100,101 1, WSUBT (100, 101), WSUBZf 100, 101 ), MSUBR( 100, 101) , 

2 WSUBM( 100, 1011 ,KTHf 100,1011 ,VTH(100, 101) ,W(100,l0l), 

3 AlPHAf 100, 101 l,BETA( 100, 10 1), NHCR( 100, 101) ,CURV( 100,1 01) , 

4 WLSURF(l00,101),HTSURF(100,10l I, CAMPdOO, 10l),SAMP( 100, 101), 

5 RHOAVf 100,101) ,DELRHG(100,1CI) ,FR(100,101 1 ,OFCM(100,10t) , 

6 XinM(loO,lOl),ZETOM(10O,l0l),OLOU( 100, 101) 

DIMENSION 0VTHDR(100,l0l) 

REAL MSFL,K,KNEM 

C—CALCULATE COEFFICIENTS AND CONSTANTS FOR , FINITE DIFFERENCE EQUATIONS 
HR1TE(NWRIT,1030) ITER 
DCI-ANG « 0. 

DMAX ® -I.E20 

OMTN = 1;E20 

CO 30 J»2,MHT 

H4 * S0m»2,JI-SGM(1,J) 

DO 30 I*2,MMMl 

HI = T0M(I,J|-T0M(I,J-1) 

H2 = TOMfl ,J+1)-TCMCI,J) 

H3 = H4 

H4 = SCM( Ml, J )-SOM(I,J ) 

AO = 2,/Hl/H2+2,/H3/H4 
Cl = H1*H2 
C ? = H 3 ^ 

ni = (BTH(I ,J+l)-BTHII, J-ll)/ETH(I,J)*(RHOf I,j4l )-RHOI I ,, J- 1 ) ) / 
IRHC1(I,J) 

ni = Dl/Cl+CPHI(I,J)/ROMn,J)*(SPHl( l*l,J)-SPHin-l,JI) /C2/ 
ICPHT(I,J) 

D2 = (BTHf M1,J)-BTHCI-1,J) ) /ETHf I,J)*(RHO( !♦! ,J)-PH0(I-1,J) )/ 
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j pjjfi 1 1 , j j 

02 = n2/c2+sPHHi,j)/f?c!»nt j)-fspnntj*i)-sp»-n ifj-Di/ci/ 
icPHn i»j> 

KNEW = XI0Mn»JI*WUtJ>**2*ZET0M( 1,J» 

IFf I.G6.tLE(J).AND,f.L6.ITEC JU 6C TC 10 

KNEW = KNEW+WTH( I » J ) /M SFL*P TH (I ,J>«RHGf I » JI^WSUBZU » JI*D1DU( I*JI 
nr TC 20 


10 OVDRT * (RO«n+l» J>»VTHU + l»Jl-RCPtI-l* JJ*VTHU-l,J))/C2*SPNni,J} 
l+(ROMfltJ*l »*VTH( I»J + l»“ROM(ItJ-n*VWn , J-DI /C1*CPHUI,J) 

OCNANG = AMAXl «0CF/lNG,AeS10V0PT-CVTHCR<I, J JM 
OMAX = AMAX1?OMAX,OVORT) 

DMIN * AM INK DM IN ♦OVDRT I 

OVTHDRfI»JJ * DNEV)*OVORT+Uo.-'ONEWS*DVTHDRn, J1 
KNEW = KNEW+HTHI I »J1/R0MJ I, J8*DVTHDR<I ♦ J)+FRn » J» 

20 KNEW = KNEW«R0M<I,JJ/A0«>8TH( IvJl/MSFL««HO< rtJJ/HSUBZUf Jl 
K n fJi = KNEW 

AflvI^J) * f 2-/H1+OU/AO/CI 
Af2tI«J} » f2./H2-On/AO/Cl 
AI3*!«Ji « <2./H3«-02l /A0/C2 
A<4»I,J) = (2./HA-02I/A0/C2 
30 CONTINUE 

WRITE! IT, 10201 OPAX, DPI NtOCHANG 
If f ICEBUG.LE.Ol RETURN 

IF f flTERZIOEBUGJflCEBUG.NE.ITER.ANC.ITER.NE.l ) RETURN 
WRITE(NWRTT»1010> 

CC AO J=2,MHT 


DC AO I=2,PMW1 

40 WRITEfNHRIT, 10001 I ♦ J ♦( AU J, I ♦ J) ♦£ J*! ,4) ,K{ I , J» 

RETURN 

JOQO format !2I6,5G16.6) 

1010 FORMAT »lHl////2AXf57HCOEFFICIENTS OF MATRIX ECUATION FOR STR 
lEAM FUNCTI0N/5X»1HI,5X»1HJ,6X,AHA( 1), 12X, AHA( 21 ♦ 12X, AHA! 31 tl2X, 
2AHA( AJ ♦13X,IHK| 

1020 FORMAT ! / //5X, 37HMAXIMUM CALCULATED VALUE OF OVTHCP *,G13.5/5X, 
137HMINIMUM CALCULATED VALUE OF OVTHOR =♦ G 13. 5/5X, 37HMA XIMUM CALCU 
2LA7E0 CHANGE IN OVTHDR »,G13.5) 

1030 FORMAT U////1AH ITERATION N0.,I3,2H t) 

END 


SUBROUTINE SOR 

— SCR SOLVES THE SET CF MATRIX EQUATIONS, AiMI = K 
— RY THE SUCCESSIVE OVERRELAXATION TECHNIQUE 

CCPMCN SRW,SRE,ITEP,1ENC,NREAC,NWRIT 

C OMMON/INPUTT /GAM, ARfMSFL, OMEGA, REOF AC ♦ VELTOL, FNEW, DNEW, MBI ,MBO, 

1 MM, MHT , NBL, NHUe,NTIP,N IN,NOUT,NBLPL, NPPP , NO STAT,N SL , L SFR , 

2 LTPL,LAmvT,IMESH,ISLINE,ISTATL,IFLCT ,ISUPER,ITSON, ICEBUG, 

3 70MIN,70MBI,ZOHBO,ZOMOUT,ZHIN,ZT1N,ZHOUT,ZTCUT,ZHUB<501 , 

A RHUB(5 0) ,ZTIP<50!,RTTP!50I ,SFINf 50), RAD IN f 50 ) ,TIPf 50) ,PR IP< 501, 

5 LAMIM 50) , VTHI N(50l , SFOUT f 50 ) , RAOCUT (50 ) , PROP <50 ) ,LOSOUT <50), 

6 L AMOUT< 50),VTHOUT( 50),ZHST<50I ,ZTST< 50) ,FLFR( 50 , 

7 ZBL<50,50) ,RBL(50,50),THeL(50,50),TN8L<50,50) 
COmmon/CALCON/mmmi,MHTP1,CP,EXPON,TGROG,PITCH,CUPVHI,CURVTI, 

1 CURVH0,CURVT0,RHIN,RTIN,RH0UT,RT0UT,RLEH,RLET,PTEH,RTET, 
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2 ;iEf50) fPLE<50)f 7TEf50).RTFC5O>, ?LE0M(10l ),RLEnM(101), 

^ SLFOMf 101) ,THLE0M< 101) ♦?TErV( loi ) »RTEr!«a01 ) ,STFCM10l ), 

4 THTEriM( 101 It RE(101)» ITE( 10 l), 70 M( 100 1 lODtRCJ'f lOOt 1011 t 

5 SrM( 100,l01)fTGHaOO,lOl),BTHaOO,lOU tOTHOSl lOOt 101 )♦ 

6 PTHOTf ICC, lODtPLOSSl 100,101) tCPHI (100,101) tSFHKIOO, 101 ) 
CCVMCN/VARCCM/A(A,100,101 ),UOM( 100, 101),K( 100, 101) ,RHO( ICO, ICl) , 

1 WSURSl 100,101) tWSUBTdOO ,101) ,WSUB7(100,101 ),WSUBB (100, lOl), 

2 WSUflMUOO, 101 ),WTH(100, 101 l,VTH( 100, 101), W( ICC, 101) * 

3 ALPHA (100,1 01) ,RETAU0O,101),V(WCR(100,lOl),CljPVn0O, 101), 

4 WLSURPf ICO, 10l),VJTSURF< 100,101) ,CAPP( 100,101) ,S APPU CO,l 01 ) , 

5 PHOAV(100,101 ),CELRHC(100, 101),ER( 100, l0l),nPCM( 100,101) , 

6 X10«(l00,101) ,7ET0M(100,101) ,OLOUUOO,10l ) 

CTMENSION UVERT( 101,2) 

REAL K,LMAX,L«IN 
IF (ITER.OT.l) 00 TO 70 
C 

C--STCPE U BOUNDARY VALUES ANC SET BOUNDARY VALUE TO ZERO 
C — TO CALCULATE OPTIMUM ORF 
00 10 I*2,MMM1 
UCM(I,1) * 0. 

10 UOM( I,MHTP1) = 0. 
on 20 J*2,MHT 
UVERT(J,l) » UCM(1,J) 

UOM( 1, J) = 0, 

UVERT(J,2) = UOM(MM,J) 

UCM(MM,J) * 0. 

DO 20 1=2,MMM1 
20 UCM(I,J) a 1, 

'-CALCULATE OPTIMUM ORF 

30 UMAX » 0, 

LMTN a 1. 

DO 40 J=2,MHT 
OC 40 I»2,MMM1 

UNEW a A(l,I,J)*UCM(I,J-l)*Af2,I,J)*UCM(I,J*U*A(3, I, J ) MUOM (1-1, J ) 
1 +A(4, 1,J)*UOM(l-H,J) 

RATIC = UNEW/UOM(I,J) 

UMAX a AMAX1(L“AX, RATIO) 

LMTN a AMINKLM IN, RATIO) 

40 «CM(I,J) a UNEW 

IF (LMAX.OT.I.) LMAX=1. 

ORFMAX a 2, /( 1,-»S0RT( l.-LMAX) ) 

ORFMIN = 2,/U.*S0RT(l--LMINI) 

IF ( (ORFMAX-ORFMIN).GT.0.2*(2.-CRFMAXn GOTO 30 

ORF = ORFMAX 

VPITE (NMRIT,1000) ORF 

C 

C — RESTORE U BOUNDARY VALUES 
DC 50 I=2,MMM1 
SO UCMfl ,MHTP1) =1, 

DO 60 1=2, mhT 
UCMfl, J) = UVERTfJ,!) 

60 UnM(MM,J) * UVERTfJ,2) 

C 

C--5CLVE MATRIX ECUATICN BY SOR 
70 ERROR = 0. 
on 80 1=2, MHT 
DC BO I=2,MMM1 

CHANGE = 0RF*(A(1 ,1 ,J)*UGM(I , 1-1 ) + A (2 , I 1 ) ♦UOM ( I , J + l ) +A f 3, I, J) 



1 n- i,j )+A< I* j )*ijriM( ! ♦ 1, j) 4 -KC r ,.!)-ucw( i * jn 

EPPOR = AMAXl (ERRCRt APS rC>-ANGE » ) 

PO ~ UO*^ ( I ♦ J 1 ♦CHANGE 

If (ERROR. GT.l.E-51 GO TO TO 
RETURN 

1(300 FORMAT f///5X»A0HCALCULATED OVERRELAXATION FACTOR (ORF> =,F7«3> 
ENt) 


SUBROUTINE NEWRHO 

C~newPH(^ CALCULATES VELOCITY COMRONENTSf VELOCITY MAGNITUDE, 

c — and new density at each mesh point 

c 

CCMMCN SRWtSRE, ITER, IEND,NREAC,NWR1T 

COMMON /INPUTT /GAM, AR,MSFL, OMEGA, REDFACtVELT CL, FNEW, DNEW, MBI,MBO, 

1 MM,MHT,NRL,NHUe,NTIP ,NIN,NOUT,NBLPL,NPPP,NOSTAT,NSL,LSFR, 

? LTPL,LAMVT, IMESH,ISLINE, ISTATL, I PLOT, ISUPER, ITSON, TDEBUG, 

3 TOM IN, ZOMBI ,ZCMBO,ZOMOUT, ZHIN, 7TIN,7H0UT , ZTCUT , 7HUPI50 » , 

4 RHU0(5O>,ZTIP( 50J,RTIP(50»,SFIN(5C) ,RA0IN(5C) ,TTP(50) ,PRIP(50I , 

5 LAMIN(50) ,VTHIK(50I,SF0UT 150 1, RACOUT (50 ), PROP (50 ), LOSOUTI 50) , 

6 LAMOUTf 50) ,VTH0UT(50) ,ZHST(50) ,ZTST(50) ,FLFRC50) , 

7 7BL(50,50),RBL(50,50),THBL(50,5C)»TNBL( 50, 5C) 

CCMMON/CALCCN/MMMI ,«htpi ,cp,expon,tgpog,pitcf,cupvhi, CURVTI, 

1 CURVHO,CURVTO,RHIN,RT1N,RHOUT,RTOUT,RLEH,RLET,RTEH,RTET , 

2 7LE(50),RLE(50), ZTE(50),RTE(50),7LEOM( l01),RLEnM( ICl) , 

3 SLEOM(lOl) ,THLEaM(10l),ZTECM(lOl),RTEOM(101),STEOM(101), 

4 THTEOMf 101), ILE( 101I,ITE( IQl) ♦ZOM( 100,101) ,RCM(100,10l J , 

5 SrM(100,10l),TOM(100,lOl),BTH(100, 10l),DTHCS( 100,101), 

6 DTHDT( 100,101) ,PLaSS( 100,101) ,CPHI (1 00, 101 ), S PHI ( 100, 101 ) 
CC3MM0N/VARC0M/A( 4, 100, 101), UOM( 100,101) ,K( 100, 101) ,RHO( 1 00,101) , 

1 MSUBS( 100,101 ),WSUBT( 100, 101 ),WSUE7( 100, 101 ), VSUBR ( 100, 101) , 

2 WSUBMI 100, 101) ,«TH(IC0,101) ,VTH(100,101 ) ,W( 100,101), 

3 ALPHA ( 100, 101), BETA) 100, 101),HWCR( 100, ICU ,CURV( 100,101) , 

4 WLSURF(100,101)fWTSURF(100,10l),CAMp(100,101),SAMP( 100, 101), 

5 RHDAVf 100, 101) ,OELRHD( 100,101 ) ,FR( 100,101 ) ,DFCM<100, lOl ) , 

6 XinM(100,101),7ET0M(lQ0,10U,0L0U( 100,101) 

DIMENSION OUDS(IOO) ,TVERT (101 1 ,UVERT ( lOl ), DUCT ( 101 ), TPPT IP ( 101), 

1 PREL (101),R07I( 101 >,DIDTI 1CI),DP0T(101) ,AAA(IC1) , 

2 DIDS(100,101),CPCS(100,101) 

REAL MSFL,LAMDAF 

INTEGER SRW,SRE 
I PELFR = 0. 

XNEW =1,0 
7NEW = 1.0 
C 

C— RE INI TT ALl 7E LAMDAF,RVTHTA,TIPF,PHCIPF,PHOOPF 
C 

IF(LAMVT.EO.O) GO TO 10 
CALL LAMNTT 
CALL PVTNIT 
CALL TIPNIT 
CALL RHINIT 
CALL RHONTT 
C 

C — CALCULATE PARTIAL DERIVATIVES OF RGTHAlPY (ROTI), AND RELATIVE TOTAL 
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r — PRE';'?llPf «PRFl) IN THF s HIRFCTICK 
C . 

1C or ^0 . 1=1 ,RHTPi ... 

or ?o 1 = 1 , vRi 

TFPT IP(I) = 1 .-(2.*nMEr,A*LAN0AF<U0Mf I,J J, I».J )- < OMEOA^POM (I , J n ♦♦ 2) 
l/'2, /CP/TTPFUjnMU tJ>) 

If CTPPTTPt n.LT.C.) 00 TO 8C 

PPFL m = RHOTPFflinM( I , J))*AR*T IPFf UOM(I, J ) ) *TPPT IP< I ( GA M*E XPON 
11 1,-PLOSSI I , jn 

20 ROTim = CP*TlPF(UO«n , J))-CWEGA»LAMOAF(UnMn , J) ,I,J> 

CALL SLOPES (SCMIl ,J),RCTI, MM, CICSUtJ )) 

30 CALL SLOPFSISOMf 1,J),PREL,MM,DF0SC1,J)I 

— CALCULATE WSUPT FROM THE PARTIAL CF tfOM WITH RESPECT TO S USING THE 

— AVERAGE BLADE-TO-RLACE DENSITY FCP CONTINUITY 


or AO J=1,MHTP1 

CALL SPLINE! SOMf I ,JJ ,UCMfl ,J) ,^M, DUDS, AAA) 

no AO i=v,mh " ■ 

WSUPTII,.)) = (-CUC$(I)/PCMUtJli^PTHn,J »*MSFL-CFCM( 1,J)* 

1 OELRHOCI,J) /12.*C0Sf PETAfl,Jl )*S AMPU , J 1) /RFC AV II , J ) 

AO CONT INUE 

* • , j . 

-CALCULATE DERIVATIVES IN THE T OlRECTfCK OF THE SAME VARIABLESt AND 
-CALCULATE NEW VELOCITIES AND NEW DENSITY 

nr 60 1=1 ,Mw 

DO 50 J=1,MHTP1 
TVERT (J) = TOMC I, J ) 

UVFRTf J) * UOM( I , J) 

TPPT IPIJ ) = 1 .-t 2.*OMEGA*LAMOAF(UOMn ,J) , I , J) - fOMEGAAROMn , J J)**2 ) 

l/2./CP/TIPFUJ0Mn ,jn ' . ‘ 

IF ( TPPTIPC Jl.LT.C.) GO TO 80 ‘ ' 

PREL IJ) ■= RHOIPFUiOMl I, J ) ) *AR*t I PF I UOMU , J) ) * TPPTI P( j) *♦ (GA M*,EX PGN 
l)*a.-PLOSS{ I,.1I ) 

50 ROTIIJ) = CP^TIPFIUOMU ,J))-OMEGA»LAMCAF(UCMn,J),I,Jj 
CALL SPLINE{TVERT,UyERT,MHTP 1,DUDT, AAA) 

CALL SLCPESCTVERT,R0TI,MHTP1,CI0T) , 

CALL SLnPESfTVERT,PREL.MHTPl,DPOT) ! 

DC 60 J=1,mhTP1 ' . 

wsups(i,j) = {nuoT(j)/RCMn,j)/eTHnt J)*MSPL-CFCM(itJ )♦, 

1 DEIRHOC ItJ)/l2.*C0S(BETA(I,J))*CAMPn ,J))yRHCAV(i,,J) 

WTHIT, J) = P0Mn,J)*(WSU8S( I, J)*DTHCSn,J )FWSURT« l,JI*DTHDTf I , j) ) 
IF ( T.LT. ILEC J) ) WTHU , J) =L AMCAF (UOM II , J) , I , J) /RCMfl, J )-OmEGAF 
IROMUfJ) 

IF n.GT.ITEfjn WTH! !♦ J) = RVTHTA(UOM( I, J ), I, J )/R0Mf i,j)~aHEGA* 
IROMC I ,J) . 

vTH(i,j) = wTH( i,4)+0MEGA*RnMn,j) ; 

W<D = WTHU ,J)**2-»WSUBS n,.J>**2*WSUeTII,J >*»2 ' 

WTEMP = SOPT(WSO) . . , 

IFfWf I,.n .NE.O. ) RELER = AmA X l< REL ER , AB SU WTEMP^VI I , J )) /witl J ) )) 
Wn,Jl = WTEMP 

TWLMR * 2.*0MEGA*LAMDAF(U0MU ,J) ,I ,J)-(CMEGA*RCMI,J) )*#2 
TTIP = l.-fWSQ4TWLMR)/CP/TIPF(IICMII,J))/2. 

IFITTIP.LT.C.) go TO 70 

PHOU,.n = RHO IPFMinMf I , J n*TTlP*»E XPON 

TPP = TPPTIP! J)*T IPFIUCMH,.) ) ) 

DPOP * OPDSU ♦ J)*SPHI n , J)40PCT( J)*CPHI U ,J) 

Dirp = DIPSC T,J )*SPHI (I,J) + OICTIJ)*CPHI( I ,.)) 
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XII7MT = f AR/PREL UI’fOPOR-f D!CP*0MEGA**2*R0M( If J ! J/TPP S/2e/CP 
7ETC1MT = OMEr,A**2*RCM(I » Jl-AR/PREtf J)*TPP*DPnR 
XTCWHfJ) = XNEW«X!OMT*n*-XNEWJ«XlOMUf J) 

TETOPCIfJI = 7NEH*ZETOMT*a,-ZNEHj*?ETOMaf JI 
60 CONTINUE 

WPITEINWRITf 1020J ITERtRELER 

—ADJUST PRINTING CONTRCL VARIABLES 

IF f RELER.GE.VELTCLl RETURN 
IF (RELER.EO. 0. I RETURN 
lENC = IEND+1 
IF (IPESH.GT.U IRESH=l 
IF USLINE.GT.n ISLINE=l 
IF nSTATL-GT.n ISTATL=1 
IF (I PLOT.GT.il IPLCT=1 
IF (ITSON.GT. 1) 1TS0N = 1 
IF nCEBUG.GT.il I0EBUG=1 
RETURN 

70 HRITEINWRITflOOOl 
STOP 

80 WRlTECNHRITflOlOl 
STOP 

1000 FORMAT I68HI PROGRAM STOPPED IN NEWRHO DUE TO EXCESSIVE STREAM FUNCT 
II GN GRADIENT) 

1010 F0RMAT<62HL THE UPSTREAM INPUT WHIRL OR TANGENTIAL VELOCITY IS TOC 
I LARGE) 

1020 F0RMATI//Z5XfgHITERAT10N,I3,6lH, RAXIWJM RELATIVE CHANGE IN VELO 
ICITY SfGll.4) 

END 


SUBROUTINE OUTPUT 

— CUTPUT CALCULATES ANC PRINTS THE MAJOR OUTPUT DATA 
— AT THE ORTHOGONAL MESH POINTS, ALCNG THE STREAMLINES, 

— AND ALONG STATION LINES FROM HUB 70 SMROUO 

CCMMCN SRW,SRE»ITER,IENC,NREAC,NMRIT 

COMMON/ INPUTT/GAM,AR , MSFL, OMEGA, REOF AC ,VELTOL ,FNEW,ON*EW,MBI ,MBO, 

1 MM,MHT, NBL,NHUP,NT IP,NIN, NCUT, NBLPt ,NPPP,NOST AT,NSL ,L SFR , 

2 LTPL,LAMVT,IMESH,l SLI NE , I STATL, I PICT , ISUPER, ITSGN, I0E8UG, 

3 70MIN, ZOMBI, ZOMBO,ZOMOUT,ZHIN,ZTIN,ZHOUT,7TCU7,ZHUBI50) , 

4 RHUBI50) ,7 TIPI 50) ,RTIP(50) ,SFlNf 50 ) , RADI N (50) »T IP ISO ), PR IP (50 ), 

5 LAM INI 50),VTHIN( 50),SF0UT( 50) ,RADOUT( 50) ,PRCP (50) ,LOSOUTI50 ) , 

6 LAMHUTISO) ,VTH0UTI50 IfZHST (50), ZTST 1 50 ), FL FR I 50), 

7 ZRLI 50,50) ,RBL(50,50) ,THBLI50,50) ,TNBLI50,50) 

COMMON/ CAL CON/MMM1,MHTP1,CP,EXPON,TGROG,P I TCH,CURVHI ,CURVTI , 

1 CURVHO,CURVTO,RHIN,RTIN, RHOUT,RTOUT,RLEH,RLET,RTEH,RTET, 

2 7 LEI 50) ,RLE( 50) ♦ZTEI5C) ,RTEI50) ,ZLE0M(10l ) ,RLECM(101) , 

3 SLECMIlODfTHLEOMi 101),ZTE0«I 10ll,RTE0M( Id) ,STECMI 1011 , 

4 THTEOMIlOl ) tUEClOl ), ITEIlOl ),2OMU00, lODtRCMIlOO, 101), 

5 SOM( 100, 101) ,TOM( 100,101) ,BTHI100,101) ,DTHOS( 100 ,101 1 , 

6 DTHDTIlOOflOl ),PLOSSI100, 101) ,CPMH 100, 101) , SPHI I ICO, 101) 
CCMMnN/VARCrtM/A(A,lOO,lOl),UOMIlOO, 101) fKilOO, 101),RHO( 100, 101), 

1 WSUBSf 100, 101 ),HSUBT( 100,101) ,WSUBZ( 100,101) , VSUBRIl 00,1 01 ) , 
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2 VSUPMUOO»lOl),WTHUOO»101!,VTHf 100, I0l),m 100,1011, 

3 ALPHA! 100,1011 , BETA (100, 1011 ,WWCR(100,101 1, CUPVdOO, 1011, 

4 WLSURP(100,1011,WTSURF( 100, 1011 , CAMP ( 100, 1011 ,SAMP(100,1011 , 

5 RHOAV(100,101 1,OELRHC(100, 101),FRC100, 101 1,0FCM( 100,1011, 

6 XI0M( 100,101) , ZETOMUCO, 101) ,0LDl'(100, 1011 

COMMDN/SLCOM/ILS(501,!TS(50),ZSL( 100,501 ,R SL( ICO ,501 ,MSL( 100,501 , 

1 WZSU100,50) ,MRSL(100,50),WMSL(100,501,WTHSLI 100,501, 

2 ALPSLf 100,50) ,BETSL( 100,50) ,«SL( 100,50) ,«WCRSU100 ,50) , 

3 a)RVSL(lOO,501,WLSSL(100,50l,WTSSLt 100,501 
CCMMON/STACCM/ZST(50,50),RST(50 ,501 ,MST (50,50 ),W7ST (50, 501, 

1 WRST(50,501,MMSTC50,5C),HTHST(50,50) ,ALPST ( 50 ,50) ,BETST(50,50), 

2 WST(50,50),WWCRST (50, 501,CURVSTI 50,501,WLSST( *0,501 , 

3 WTSSK 50,50) 

DIMENSION OALOSf 1001, TVERT( 1011, ALVERT( 1011, OALVER (1011, 
t ZTEMdOl ),RTEM(10l 1,OTEM<101 1, ZSLTEM ( 50 1, RSLT€M( 501, 

2 ZBLTEM(501 ,RBLTEM(501 ,MTEM(50) ,MARK(501 , AAA dOl }, 

3 DAL 0T( 100, 101) 

REAL LAMDAF,LAMIN,LAM0UT,MSL,MST,MTEM 

—CALCULATE VELOCITY COMPONENTS AND FLOW ANGLES 

DEGRAO = 180. Z3. 1415927 
DO 10 J«1,MHTP1 
DC 10 1=1 ,MM 

WSUBMd.j) a SQRTIWSUBSd ,J)**24WSUBTd,J)**2) 

SAMP(1,J1 * WSUBT( I,J1/WSUBM(I,J) 

CAMP(1,J1 a WSUBS(I,J1/WSUBMU,J) 

wsuBZ(i,j) = wsuBSd ,j)4CPHi (i,j)>wsuerd ,ji*sPHin,j) 

WSURR(I,J) = WSU6Td,J|«CPHI( 1,J)4W$UBS(I,J14SPHI(I,J1 
ALPHAd,Jl * ATAN(WSUBR(I,J1/WSUBZ(I,J1) 

10 BETA(I,J) » ATAN(WTH(!,J)/WSUBM(I,J)1 
GC TO 30 


ENTRY TOUTPT 


—CALCULATE VELOCITY COMPONENTS AFTER TRANSONIC SOLUTION 


20 


DO 20 J=l,MKTPl 
DO 20 1=1, MM 

WSUBMfI,J| a WtI,J)*CCS(BETAn,Jl) 
WTH(I,J) * W( I,J)*SIN(BETAn,jn 
WSUBZd,Jl = WSUBM( I,J)*CCS( ALPHAII 
HSUBR(T,J1 = WSUBM( I,j)*SIN(ALPHAfI 
VTH(I,J1 » UTH( I, J1+0MEGA*R0M(I,J) 


,J1) 

,J1) 


-CALCULATE STREAMLINE CURVATURE AND CRITICAL VELOCITY RATIO 


30 DC 50 1=1, mm 
DO 40 J=1,MHTP1 
TVERT(J) = TOM( I, J | 

40 ALVERT(J) = ALPHA(I,J) 

C ALL SLOPES(TVERT,ALVERT,MHTP1,OALVERI 
DC 50 J=1,MHTP1 
50 OALDT(I,J) = DALVER(J) 

DO 60 J=I,MHTPI 

CALL SLCPES(SOMd,J),ALPHA(l,J),MM,OALDSl 
no 60 1=1, MM 

CURV(I,J) = DALDS( I)*CAMP( I,J)4-0ALDTd,J)«SAMP(I,J} 

TPP = TIPF(U0M(1,J}).(2.*CMEGA4LAMDAF(U0M(I,J),I,J).(0MEGA* 
1R0M( I,jn**2) /2./CP 
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IF (TPP*LE-O.I TPPsl. 

60 HWCRfI»J) = W(I ,J)/S0RT ITGROG^TPPI 

— COMPUTE PLACE SURFACE VELOCITIES BV STANITZ METHOD 

CALL PLOVEL 

—CHECK IF UPPER OR LOWER SURFACE IS SUCTION SURFACE 
MCT = 2 

IF HLAM0AFI.5* ILEIll, D-RVTHTAI .5, ILEt l»f IH*CMEGA.LT. 0.) MCT-l 
IF CCLAMDAFC.5, ILEC1),1)-RVTHTAC.5^ ILEC1),1)).GT,00 GO TO 80 
00 70 J*1,MHTPI 
DC 70 1=1 tMM 
MOUM = WLSURFd t J) 

WLSURFfltJJ = WTSURFIltJI 
70 WTSURFINJ) = WOUM 

—PRINT OUTPUT ROW 87 ROW FROM HUB TO TIP 

80 IF flMESH.LE.O) 6C TO 100 

IF (nT«/IMESH)*IMESH«NE. ITER. AND. ITER.NE.n GG TC 100 
WRITE! NMRITtlOOO) 

IF IREOFAC.lt. l.OJ WRITEINWRITfllSOl ITER 

IF fREOFAC.EO.l.O.AND.IENO.LE.Ol WRITE! NWRIT ,116C) ITER 

IF IREOFAC.EO. 1,0. AND. IENO.EO.il WRITEINWR IT, 117CI 

IF !REOFAC.EO.l.O,ANO.IEND.E0.2l WRITE!NMRIT, 1180) 

no PO J=l,MMTPl 

WRITElNWRITtlOlOl J 

WRITE!NWRIT,1020) 

00 90 1=1, MM 

PHI = ARSINISPHI !I,JI 1*0EGRAD 
ALPHA! I, J) * ALPHAII, JI90EGRAC 
BETA!I,JI * BET A!I,vll*OEGRAO 

WRITE INWRIT, 103 01 I , J, ZOM! I, J), ROM! 1 , Jl ,UOMf 1, J1 ,WSUBM! I, J 1, 
IWTHI I,JI,W! I, J1,WWCR! I, J I, ALPHA! I , J) ,0ETA! 1 , J1,PHI 
ALPHA!I,J) » ALPHA!I,JI/!)EGRAC 
9C BETA!I,J» * BETAII , J> /DEGRAO 

— IKTERPCLATE TO OBTAIN OUTPUT DATA ON STREAMLINES 

100 IF ! ISL INE.LE.OI GO TO 110 

IF !!ITER/TSLIN£)*lSL!NE.EO. ITER.OR.ITER.EO.il GO TO 130 
110 IF IIPLOT.LE.O) GO TO 120 

IF f I iter/ IPLOT l♦IPLOT.EQ-ITER.OR. ITER.EO.il 6C TO 130 
120 IF IITSON.LE.OI GO TO 220 

IF ! ! ITER/lTSONJMITSON.NE.ITERI GO TO 220 
C — CALCULATE STREAMLINE ZSL,RSL COORCINATES FOR PRINT OUT 
130 DC 15C 1 = 1, MM 

DO 140 J»1,MHTP1 
ZTEMIJI = ZOM!I,Jl 
RTEMUl = RGMfI,Ji 
140 UTEM! Jl = UO«!I , Jl 

CALL SPLINT lUTEM, BTEM,MHTP 1, FLFR,NSL,RSLTEM,AAAI 
CALL SPLI NT!RTEM,ZTEM,MHTP1,RSLTEM,NSL, ZSLTEM, AAAI 
DO 150 JS*1,NSL 
ZSLIItJSI = ZSLTEMCJSI 
15C RSL!I,JSI = RSLTEMUSI 

C — CALCULATE STREAMLINE MSL COORDINATES FOR PRINT CUT AND PLOTTING 
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OC ITO JS=1,NSL 
*«SLC1«JSI » 0. 

DO 160 IS=2*MM 

160 ♦'SLflStJSI * MSL< rs-l,js I4S0RTMZSLC IS,JS1-ZSL (IS-I,JSM**2 
1 frfRSU ISf JS)>RSUIS-l f JSI l**2» 

CALL SPLINTIZSLf 1»JS)»MSLC l,JS),M«,0.fl»ZERrM,SLREFI 
OC 170 IS*l,PW 

170 MSLUStJS) = »«SLf IStJSI-ZERCP 
C — INTERPOLATE TO OBTAIN OUTPUT DATA 
TI = 1 
■ ■ JJ = 1 

DO 180 JS*1»NSL 
DC 180 IS = 1#MM 

CALL LIN!NT(Z0NtR0P,MSUBZ,MM,PHTPl,100,10lTZSLnS,JSI,RSLf IStJS }« 
lWZSL(IS«vl$)»TltJJ) 

CALC LININTI ZOM, ROM^WSU RR»MM, MhTPl» 100, 101, ZSL 1 1 S, JS) ,RSL( I S, JSI • 
IWRSUI S,JS1 ,IT , JJl 

CALL L ININT<ZOM,ROM,MTH,NM,WHTP1,100» 101, ZSL<t S* JS) ,R$Lf I$,JS), 
lWTHSL(IS,JS),tI, JJ) 

CALL LININT(ZOM,ROM,MMCR,MN,PHTP1,100,101, 7SUTS,JS),RSL(tS,JS), 
IWWCRSLf IS,JS),II,JJ) 

CALL LINI NTI ZON,ROM,CURV,MM,PHTPl,lOO,10l^ ZSLf IS ,JS ) ,RSLf IS, J S) , 
1CURVSL(IS,JS) ,11, JJ) 

VPSL(I$,JS) = S0RT(WZSLfIS,J$)«*24-WRSL(IS,JS)**2) 

ALPSLfIS,JS) » ATAK(WRSLfIS,JS)/WZSLUS,JS ))*OEGRAO 
BETSUIS,JS) » ATANniTHSLns,JS) /WM$LLIS,J$))*CECRA0 
180 WSLnS,JS) = SORT (WMSU IS,JS)**2*MTHSU IS, JS)**2) - 

-CALCULATE ILS AND ITS ARRAYS OF STREAMLINE LCCATIGNS INS IDE BLACE 
—LEADING AND TRAILING EDGES ' 

CALL ILETE 

-CALCULATE BLADE SURFACE VELCGITIES ON STREAMLINES' BY INTERPOLATION 

OC 190 JS«1,NSL. ‘ . ' 

00 190 IS*1,MH 

WLSSLfIS,JS) « 0, 

190 WTSSU1S,JS> = 0, 

11*1 • ■ -■ ■■ • . , .. 

JJ » 1 

DC 200 JS*1,NSL 
ILSJ = ILSIJS) 

ITSJ = ITSCJS) 

DC 200 IS*ILSJ, ITSJ 

CALL LININTI ZCM,ROM,MLSURF,HM,MHTPl ,100 , 101, ZSL f IS, JS ), RSL I IS,JS)<, 
IWLSSUIS, JS) ,II ,JJ) 

200 CALL LININT(Z0M,R0M,WTSURF,NM,NHTP1,100, 101,ZSLnS,JS),R SL( IS,JS) , 
1WTSSL(IS,JS) ,II,JJ) Y 

-PRINT OUTPUT ON STREAMLINES 

IF I ISLINE.LE.O) GO TO 220 

IF niTER/ISLINE)*ISLINE-NE.ITER.AND.ITER.NE.l) GO TO 220 
WRITEINNR1T,1040) 

TF IREOFAC.lt. l.O) HR I TEI NMRII , 1150) ITER 
IF CREOFAC.EO.l.O.AND.lENO.LE.O) HR ITEf NMRIT,116C) ITER 
IF IREDFAC.EO.l.O.AND.IEKO.EC.l) WRITEINMRIT,1170) 

IF (RE0FAC.E0.1,0.AN0.IEN0.EQ.2) WRITE<NWRIT,118C) 

OC 210 JS»1,N$L 
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WRITE! NWRlTfl050) JS»FLFRIJS» 

WRITEfNWR IT, 10601 
DC 210 IS*1 

WRITE INWRIT, 10701 ZSLII S,JS) ,RSL(IS,JS1 ,MSLI IS ,JS) ,WMSL( IS , JS 1, 
IWTFSL (IS, JS },WSL( IS,JS1, WWCRSLdStJSI ,ALPSLtIS,JS) ,BETSLU S,JSI , 
2C(JRVSL«IS ,JSl ,WLSSL(1S,JS1,WTSSL(IS,JS) 

ALPSLdSfJSl = ALPSLdSfJSI /DE<;RA0 
210 P6TSLdS,JSI * BETSLdS,JS»^OEGRAO 

— INTERPOLATE TO OBTAIN OUTPUT DATA ON HUB-SHROUD STATION LINES 

220 IF dSTATL.LE.O.CR.NOSTAT.EO.OI GO TO 410 

IF dITER/I STATLJ*ISTATL.NE.ITER.ANC.ITER,NE.n GC TO 410 
C — CALCULATE 7ST AND RST ARRAYS 

C — STORE HUB AND SHROUD POINTS INTO ?ST ANC RST ARRAYS 
CALL SPLINT! ZHUB,RHUB,NHUB,THST,N0S7AT,RTEN, AAA) 

DC 230 IL*1,NQSTAT 
7STd,IL) * 7HST(IL) 

230 RST( 1,ILI * RTEM(IL) 

CALL SPLINT (7TIP,RTIP,NT!P,2TST,N0STAT,RTEM,AAA) 

DC 240 IL«1,N0STAT 
ZST(NSL,IL) = ZTSTdLI 
240 RST(NSL,IL» = RTEM(IL) 

C — CALCULATE INTERIOR POINTS IN ZST AND RST ARRAYS 
DC 350 IL=1,N0STAT 
WARKIIL) * 1 
RTEMCl) * RST( I, ID 
RTEM(20I = RST(NSL,IL) 

OELR a (RTEM(20l-RTEWm) /13.0 
ZTEMd) = ZST(1,ID 
7TEH(20) » ZST(NSL,IL> 

DELZ a (7TEM(20)-ZTEHdn /19.0 
DO 250 J=2,19 

250 RTEH(J) a RTEP( J-ll+OELP 
C — CHECK FOR LEADING OR TRAILING EDGE STATION 

OELCH a (ZTE! l)-7LE( 1) + ZTEIN8LPL)-ZLE(NBLPU 14C.C05 
IF dZST(l,IL)-GT.(2LECl)-DeLCH).AN0.ZST(lt IL ) .LT . (ZLE( 1 I^DELCH) ) 
l.AND.(ZST(NSL,Tt).6T. (ZLE(NBLPLJ-DELCH) .AND,ZST(NSL,ILI.LTo 
2( ZLE(NRLPL)+DELCH1 n HARK! IL 1=2 
IF dZSTd ,IL1.GT.(ZTE(ll-DELCH).ANC«ZST(l, lU oLT« ( ZTEd I ODELCHH 
I.ANO.(ZST(NSL,IU ,GT,( Z TEI NBLPD-OELCHl . AND. ZST t NSL,1U .LT . 

2f ZTEINBLPD+DELCHl 1) MARK(IL)a3 
IF ( ZSTfl,IL).Gt.(ZLE(l )+OELCH),ANO.ZST ( I, IL I.LT.fZTEa l-DELCH) ) 
IM ARK ( IL )a 4 

IF (PARKdD.EC.2) GO TO 270 
IF (WARKdU.E0.31 GO TO 290 
C— REGULAR STATION 
DC 260 J=Z, 19 

260 ZTEM(J) a ZTEMC J-ll+OELZ 
GO TO 310 

C— leading edge STATION 
2TC 00 280 JNal,NBLPL 

ZELTEMIJNl a ZLE(JN) 

200 RPLTEMIJN) - RLE(JN) 

CALL SPLINT(RRLTEK,ZBLTEP,NBLPL,RTEK,20,ZTEP, AAAI 
GO TO 310 

C — TRAILING EDGE STATION 
29C DO 3G0 JN=1,N6LPL 

ZELTEMfJNl a ZTEUN) 

3CC RPLTEW(JN) = RTEIJM 
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CALL SPlINT<RBLTE»'f7BLTE»*,NBLI>tfRTEt»,20*ZTE»',AAA) 

c — interpolate pop stre«r function 

310 UTEwm = 0. 

UTF»f20J * 1. 

II » I 
JJ S I 

00 320 j*2tl9 . . 

320 CALL LININT(ZON*ROM,UOM,HM,MHTPlf lOOflOltZTE.MI J) fRTEPU) tUTEPlJI f 
UltJJ) 

C — CALCULATE STATION LINE RST CCORDIKATES FCR PRINT CUT 
CALL SPLINTIUTEMfRTEMf 20tFLFR,NSLtRSTIltI L) ,AAAI 
OELR = RST(NSL,ILI-RST< If ILI 
DEL? = 7StlNSL,IU-ZST( IfILI 
NSLMl = NSL^l 

C— CALCLfLATE STATION LINE ZST COORCINATES FOR PRINT OUT 
IF IMARKI IL1.E0.2.0R,MARK(IL».EQ.3I GO TO 340 
OC 330 JL*2fNSLHl 

330 ZSTIJLtlL) * ZSTatlLI+IRSTULf ILl-RSTIlf !LM/CELR*OELZ 
GO TO 350 

340 CALL SPLINTfRBLTEPfZBLTEMfNBLPL.RSTIlf ILltNSLf ZSTIlf IDtAAA) 

350 CONTINUE 

C — CALCULATE STATION LINE MST COORDINATES FOR PRINT GUT 
OC 380 JL=lfNSL 
DO 360 IL*lfNOSTAT 
ZTENULI = ZSTIJLf IL ) 

360 RTEPfILI = RSTIJLflU 
MTFMClk = 0„ 

OC 370 IL»2tN0STAT 

3TC PTEMflL) = WTEN(IL-ll+S0RTHZTEPnLI-ZTEMML-in*42*CRTEN(IL»- 
IRTEWUL-l n**21 

C ALL SPLINT I ZT EM , MT EM ,NOST At f 0,t If Z EROMf SLREF 1 
DO 300 IL«ifNOSTAT 
380 MSTULf IL I = MTEMI ILI-ZEROM 
C 

C— INTERPOLATE TO OBTAIN OUTPUT DATA ON STATION LINES 
IT = I 
JJ * I 

DC 390 IL=lfN0STAT 
00 390 JL*lfNSL 

CALL LININT CZOMfROMfNSUBZfMMfMHTPlf lOOf lOl f Z STIJLf 1 11 fRSTT JLtI U • 
IHZSTIJLfl L) fllf JJ) 

CALL LININTf ZQMfRCPfWSUBRfMMfMHTPl f 100*1 01 f ZST ( JLf IL 1 f RST I JLf ILI f 
IWPSTIJLf IL), Ilf JJ) 

CALL LININT(ZCMfRCPfMTH,MMfMHTPl,100fl01f ZSTIJLf ILlfRSTIJLf ID* 
IMTMSTI JLf ILIf II f JJI 

CALL LININTlZOMfROMfWWCRfMMfMHTPlflOOflOlfZSTI JLfIL) fRSTlJLflL) , 
IWWCRSTIJLf ILlfllf JJI 

CALL LININTIZOMfROMfCURVfMMfMHTPlflOOflOlfZSTI JLflL) fRSTIJL, ID , 
ICURVSTIJLf ILlf llf JJ) 

MMSTIJLf ILI « SQRTmZSTCJLflLIRMZ+WRSTIJLf ID**2) 

ALPSTIJLf IL) * ATANIMRSTI JLfILI/WZSTIJLfI DIPOEGRAO 
BETSTf JLfIL) * AT ANCMTHSTf JLf ILI/WMSTIJLf IL ) )*CEGRAD 
HSTI JLfIL) = SORTINMSTI JLfIL)**2+WTHSTf JLf ILI**2 ) 

WLSSTiJLf IL » » 0. 

NTSSTfJLfIL) « 0. 

IF f MARK! ILl-EO.l) GO TO 390 

CALL L ININTIZOMfROMfHLSURFf MMfMHTPlf lOOflOlfZSTI JL, I L) , RSTI JL ,1 L) , 
IWLSSTI JLfIL) fllfJJ) 

CALL LININTIZOMfROPfWTSURFf PMfPHTPl ,100,101 , ZSTI JL, IL), RST I JLfIL), 
IVTSSTIJLf IDfllfJJ) 
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3^C CCKTINUE 


— PRINT OUTPUT ALONG HUB-SHftOUO STATION LINES 
WPITEINWRiTtlOeO) 

IF fREDFAC.LT. 1.0) WR I TEf NWRI T ♦ 1 150) ITER 
IP fREDFAC.EO.l.O.ANO.IENO.LE.O) WRITEfNWRIT, 116C) ITER 
IF IREOFAC.EO.l.O.AND.TEKD.EC.l) WRITE f MM RIT. 1170 ) 

IF (REnFAC.EO.l.O.ANO.IENO.EQ.2) WRI TE fNWRi T, 1180 
nr 400 TL=l »NOST AT 

IF f MARK! ID.EQ. 1) WRITEINWRIT»10«)0) IL 
IF fMARKf TL ).FC.2) WR ITE f NWRl T, 1 100) IL 
IF ( MARKf n ) .EC.3) WRITE! NWRITtlllO) IL 
IF fMARKf IL ),F0.4) WRITEINWRIT,1120) IL 
HPITEf NKRITtll30) 

DO 400 JL*1*NSL 

WRITE (NWR IT, n^O) RSTfJL, IL ) , Z STUL , IL) ,MST< JL,Il) ,FLFRI JL) , 

IWWSTf JL,I L) tWTHST (JLt ILI.WST (JL, IL ) , WWCRST ( JL , IL ), ALPSTf JL t IL ) » 
2RETST< JL,IL) ,CURVST( JL,IL) ,WLSST( JL tIL) ,WTSST< JL,U) 

ALPSTfJLtlL) = ALPSTfJL , IL )/D£GRAO 
4C0 PETST(JL,IL) * BETSTf JL , ID ZOEGRAC 

--CALCULATE DATA FOR INPUT TO THE TSONIC PROGRAM 

410 IF (ITSON.LE.O) RETURN 

IF f (ITER/ ITS ON) PITSON-NE. ITER) RETURN 

CALL TSONIN 

RETURN 

— FCRWAT STATEMENTS 

1000 FORMAT ( IH 1// //28)t, 79H*** STREAM FUNCTION, INTERIOR VELOCITIES, V 
lELCCm COMPONENTS, AND ANaES PPP/44X, 41HAT ALL MESH POINTS OF T 
2ME ORTHOGONAL MESN/44X,4l (IHP )) 

1010 FORMAT f///42X,3SH** HORIZONTAL ORTHOGONAL MESH LINE NO. , 

II2,3H •♦//) 

1020 FORMAT ( 1 X, lOHMESH-POI NT ,3X ,5HAXI AL,6X,6HR ACI AL,6X,6HSTREAM, 4X, 
16HMERID., 3X,9HREL.TANG.,4X,4HREL.,3X,SHCRIT. VEl. ,3X,6HMER10. ,3X, 
28HREL.FL0H,3X,4HMESH/ IX ,9HC0LM ROH,4X,6HC00RD., 1X,6HCOORO. ,7X, 
35HFUNC. »5X,4HVEL. ,6X,4HVEL. ,7X,4HVEL.,5X, 5HRAT1C ,3 (5X ,5HAN6LE )/ 
42X,6H(1 ) ( J),5X, 3H(Z), lOX, 3H(R), 10X,3H( U) ,6X,4H(VM) ,5X,SH(NTH) , 

57X, 3HC W), 5X, 7H( W/WCP), 3X, 7H ( ALPHA ),3X,6Hf BETA ),5X,5H(PHI)) 

1030 FORMAT 1 1X,I3,2X,I3,2X,2(G12.5,1X) ,F8.4,3(IX,F9.2) ,1X,F9.3, 
13(3X,F7.zn 

1040 FCRMAT (IH1////15X,99H*** STREAM FUNCTION, INTERIOR VELOCITIES, V 
IELOCITY components, angles, and surface VELCCITIES ♦p»/56X,17HALC 
2NG STREAMLINES/56X,17(1H*)) 

1050 F0RMAT(///36X,20H** STREAMLINE NUMBER, 13, 23H — STREAM FUNCTION 

l=,F8.4, 3H *♦//) 

1060 FCRMAT (4X,5HAXIAL,ex,6HRA0tAL*7X,6HMERtD.,6X,eHMER I0.,2X, 

19HREL.TANG. ,2X,4HREL. ,2X,9HCRIT.VEL.»2X ,6HMER1C.,2X,8HREL.FL0W, 
22X,7HSTREAM., 3X, 9HSUCT.SUR . , IX, 9HPRES. SUR, /4X,6HC00RD.,7X, 
36HC0GR0.,7X,6HCGCRD.,7X,4HVEL.,5X,4HVEL ., 5X, 4HVEL.,4X,5HRATI0, 

42( 4X,5HANGLE) ,5X,5HCURV. ,6X ,4HVEL. ,6X,4HVEL. Z5X ,3H( 7) ,10X,3H( R) , 
510X,3H(M),9X,4H(WM|,4X, 5H(WTH) , 5X, 3H( W) , 4X, 7HC V/ VCR ) ,2X, 

67H( ALPHA) ,2X,6H(BETA) ,3X,9H(l ,/DIST ),4X,4H(WS ),6X, 4HIWP ) ) 

1070 format (3( 1X,G12.5) t3(tX,F8.2) ,1X ,F7-3 ,2 (2X ,F7.2 ) ,2X ,G1 1-4, 
IF8.2,2X,F8.2| 

1080 FCRMAT (IH1////15X,99H**P STREAM FUNCTION, INTERIOR VELOCITIES, V 
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IFinciTY COMPONENTS, ANCtLES, AND SURFACE VELOCITIES ♦**/28X,72HAL0 
2NG LINES FROM HUB TO SHROUD AT VARIOUS STATIONS THROUGH THE BLADE 
3ROW/28X,72( IH*) 1 

lOGO FORMAT! ///AGX,26H** HUB-SHROUO STATION NO. ,I2,3H ♦♦//! 

IICO FCPMATI///A9X ,26F** HUfl-SHROUC STATION NO. ,I2,3F *«,16X* 

U8H** LEADING EDGE **//) 

lllb F0RMAT<///A9X,26H»* HUB-SHROUD STATION NO. tl2,3H **,15X» 

IISH** TRAILING EDGE ♦♦//) 

1120 FORMAT ( ///49X,26H** HUB-SHROUO STATION NO. ,12, 3H **,16X, 

IIBH** WITHIN BLADE **f/} 

1130 FORMAT (AX,6HRA0I AL,7X,5HAXIAl,8X,6HNERI0.,4X,6HSTREAM,3X, 

16HMER10., 2X,9HREL.TANG., 2X, 4HREL, , 2X,SHCR I T. VEL. ,2X,6HM£R1 0- ,2X, 
2BHREL.FL0H,2X,7HSTREAM.,3X,9»-SUCT.SUR., 1X,9HPRES .SUR./4X, 
36HCOORO.,7X,6HCOORO.,7X,6HCOORC. ,5X ,5HFUNC . ,4X ,4HVEL. ,5X ,4HVEL. , 
45X,4HVEL.,4X,5HRATI0, 2! 4X, 5HANGLE) , 5X,5HC UR V. , 6X ,4HVEL. ,6X,4HVEL./ 
55X,3H(R| ,10X,3HI 21 ,10X,3H!M| ,8X,3H!U»,5X,4H(WM),4X,5HIWTH), 5X, 
63H!W),4X,7H( W/WCRl , 2X, 7HI ALPHA) ♦2X,6H!8ETA» ,3X ,9 H ( I ./OIST ) ,4X, 
74H(WS I ,6X,4HIWP» 1 

1140 format IIX,3!G12.5 tlX»,F6.4,3!lX,F8.2l,lX,F7.3,2(2X, F7.2),2X, 
lGn.4,F8.2,2X,F6.2) ' ' • - ‘ • 

1150 FORMAT I/53X ,23 I IH* )/ 53X , 23H* REDUCED MASSFLOW ♦/SBX, 23! IH#) / 
153X,ieH* ITERATION NO. ,I2,3H ♦/53X,23 (IHPU 

1160 FORMAT !/52X,25( IH*|/52X, 25HP FULL MASSFLOW * /52X,25(1H4| / 

152X,19H* ITERATION NC. ,12, 4H */52X, 251 1H*I) 

1170 FORMAT I /52X,25( 1H*I /52X,25H4 FULL MASSFLCW */42X ,45 1 IHP J/ 

142X,1H4,12X,19HTRANS0NIC SOLUT ION , 12X, IH*/42X ,45H* BY VELCCITY G 
2RA0IENT approximate METHOD */35X, 59 1 IH» 1/35X, 59H* ALL VELOCITIES 
3 SMALLER THAN CHOKING MASSFLOW SOLUTION »/35X ,591 1H*M 

1180 FCRMAT I/52X, 25UH4)/52X,25H* FULL MASSFLCW */42X, 451 IH* ) / 

142X, 1H*,12X,19HTRANS0NIC SOLUT ION, 12X , 1H*/42X ,45H4 BY VELOCITY G 
2RAC1ENT APPROXIMATE METHOD ♦/35X,59UH*) /35X, 59H« ALL VELOCITIES 
3 LARGER THAN CHOK ING MASSFLOW SOLUTION */35X, 5S! 1H*> ) ‘ 

‘END • 


SUBROUTINE BLDVEL 

— BLDVEL CALCULATES BLADE SURFACE VELOCITIES AND FR 
CCMMCN SRW,SRE,ITER,IENC,NREAC,NWRIT 

COMMON/INPUTT/G AM, AR,MSFL, OMEGA, RECFAC,VELTOL, f NEW, DNEW » MB I , MflO, 

1 MM,HHT,NBL,NHUR,NTIP,NIN,NOUT,NBLPL,NPPP,NnSTAT,NSL,LSFR, 

*2 LTPL,LAMVT,IMESH,ISLINE, iSTATL, IPLOT, ISUPER, ITSON, IDEBUG, 

3 ZOMIN, ZOMBI, 70M80,Z0MOUT,ZHlN,ZTlN,2H0UT,7TCUt,7HUB(50J, 

4 RHUBI50), ZTIP<50),RT1P(50I,SFIN( 50), RAO INI 50) ,TIP!50) ,PRIPISO), 

5 LAMINI50) ,VTHINI50),SFCUT!50),RAC0UT (50 ) , PRC P (50 ), LOSOUT ( 50) , 

6 LAMOUT! 50) ,VTHOUT( 50),ZHST(50) ,ZTST(50) ,FLFP(50) , 

7 7BL(50,50),R8L(50,50),THBL(50,50),TNRL( 50,50 
COMMON/CALCON/MMMl ,MHTP1 , CP, EXPCN,TGPCG, PITCH, CUPVHI, CURVTI, ' 

1 CURVHO,CURVTn,RHlN,RTIN,RHOL'T,RTOUT,RLEH,RLET,RTeH,RTET, 

2 ZLE(50),PLE(50),ZTE(50),RTE(50),ZLEOM(101),RLEOM(101), 

3 SLEOM( ion ,THLEOM( lOlJ ,ZTECK(10l) ,RTE0M(101),STECM(101), 

4 THTEOM(lOl), ILE( 101), ITE( 101), ZOM( 100,101) ,ROM( 100,101) , 

5 SOMUOO, 101), TCMdOO, 101), BTH(lOO,lOl),DTHDS( 100,101), 

6 OTHDT( 100,101) ,PLOSS(100,IC1),CPHI(100,101),SPH(100,101) 
CCMM0N/VARCOM/A(4, 100, 101),UOM( 100, 101), K( ICO, 101) ,RHOl 100, 101) , 



1 WSU'^SdOOjlOl } »WSUeT«l00,l01 >, WSU67 tlOO *10n*WSUBR<100f 10 1), 

2 WSHBMI ICO, lOU ♦«!>!< lOOtlOU ,VTH( 100,101 > ,VflOO,101J , 

3 AIPHA<100,101) , RET A <100,101 },WWCR(100, 101 J.CUPVtiOO, 101), 

A ULS'JPFf 100,101) , WTSURP< 100,1 01 ) ,CAMP( 100,101 ) ,SAPP< 100,101 1, 

5 RHCAV( 100, 101), CELRHOf 100, 1G1),FR1 100,101) ,DFDV< 100,101) , 

6 XI 0M< 100,1 01) , ZETORI 100, 1011,01.011 <100, 101 ) 

OIPFNSION TVERTI 101) ,FVERT< 101 ) ,DFVERTn 01) .OFCSdOO), 

I FST<100,10H,CFCT<100,101) 

REAL ^iSFL,LAMDAF 
integer SRW,SRE 
1C FCHANO = 0„ 

FMAX » -1.E20 
FMIN * I.E20 
C=— CALCULATE DFOT 
DO 30 T=1,MM 
CO 20 J=l,WKrPl 
TVERT(J) = TOM<I,J) 

FSTU,J) » VTHCI ,J)*R0M(I,J) 

FVERT(J) = FST< I,J) 

20 CONTINUE 

CALL SLOPE S<T VERT, FveRT,FHTPl,CFVERT) 
on 30 J=1,WHTP1 
DFDTU ,J) = DFVERTfJ) 

30 CONTINUE 

C CALCULATE DFCS, THEN OFDM AND BLADE SURFACE VELOCITIES 

on AO J=1,PHTP1 

CALL SLOPES<SOM<l,J),FST< 1,JI,PM,0F0S) 
or AO 1*1, MM 

OFDMCI,J) * >(CFOS(I)*CAMP<r,J}«OFDT<I,J)*SAMP( I,J))*BTHtI,J)* 
ICOSCBETAd.J)) 

HLSURF(I,J) = W( I,J)4-0F0M(!,J )/2. 

HTSURFU,J) * W(I , J)-OFDMd, J)/2, 

C CALCULATE BLAOE-= TO- BLADE AVERAGE DENSITY 

TWLMR * 2,*CMEGA*L AMOAF(UOM( I,J), I, J )-(OMEGA*ROMd,J) )**2 
WSO * WLSURFI I , J)**2 

TTTP = l.-<MSO+TMLMR>/CP/TlPF<UOMn ,J)) /2. 

IFfTTIP.LT.O.) TTIP * 0. 

RHOL * RHOIPFIUOMII ,J))<'TTIP**EXPCN 
WSO * WTSURF( I, JIAA2 

TTIP = l,-<WS04-TWLMR)/CP/TIPF<U0Md,J)|/2. 

IFITTIP.LT.O.) TTIP * 0. 

RHOT * RHOIPFfUOMf I, J ))*TTIP**EXPON 

OELRHO(I,J) * RHCL-RHOT 

RHOAVd,J) = (RHOL*A.*RHO< I,J)+RH0T)/6. 

C CALOJLATE F-SUB-R FOR SUBROUTINE COEF 

FRT * WCI , J)/BTHd,J)*<OTHOS< I, J)*SPHI< I, J ) + DT FCT fl, J |♦CPHI < I, J ) )♦ 
lDFDMfI,J) 

FCHANG a AMAXl (FCMANG,ABS<FRT-FRf I, J))) 

FMAX = AMAXK FMAX, FRT) 

PM IN » AM IN If FM IN, FRT I 

FRfItJ) = FNEW*FRT + <1.-FNEW)PFP(I, J) 

AO CONTINUE 

IF (lENO.LT.l) HR ITEfNMRIT, 1030 FMAX,FMIN,FCHANG 

C PRINT DEBUG OUTPUT IF REQUEST EC 

IF I lOEBUG.LE.O) RETURN 

IF d ITER/ IDEBUG)*ICEBUG.NE, ITER .AND, ITER .NE. 11 RETURN 
WRITE(NWR1T,1010) 

WRITEINHRIT ,1000) ( ( I, J,WSUBSd, J) ,W$U8Tf I , J) , VTH( I , J) ,RHO< I , J) , 
IRHOAVd ,J) ,OELRHC<I,J),DLOUU,J),l*l,MM|,j=l,MHTPl) 
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WRlTEtNWRIT,1020) 

WRITEfNWRTT, 10001 (<I»J»0TH0S< I , J ) , PR < I ♦ J ) »DFO I ♦ J ) ,XI CM(I ,J1 , 
17ET0M(I ,J» tCAMPd r J)«SARP( I» J )» J= l,WHTPi 1 

RETURN 

1000 F0RMAT(2I6» 7G16.6I 

1010 F0RM4TnHl////35Xt47HCHANGlNG QUANTITIES ON THE ORTHOGONAL HE 
1SH/5X, IHI tSX, lHJ,6X»5HWSUeS»12X,5MWSUBT,l2X,3HVTH,l2X,3HRH0,l2Xf 
25HRHOAV»IOX»6HOELRHO, IIX»4HDL0U) 

1C20 FCRHATC//7/5X»lHI ,5X ,1 HJ,6X,5HCTH0S ♦ 12X, 2HFR ♦ 13X» 4H0F0M» 12X, 
14HXI0Mt 12X, 5H7ET0M*llX,4HCAMPf 12X,4HSAMP» 

1030 FORMAT <///5X»33HMAXrMUN CALCULATED VALUE OF FR *,G13. 5/5X,33H«f NI 
IMUM CALCtILATED VAtUE OF FR =»,G13.5/5Xt33HMAXIMUM CALCULATED CHANG 
2E TN FR =»G13. 5» 

EFO 


SUBROUTINE UETE 

— TLETE CALCULATES THE INTEGER ARRAYS OF MESH POINT LOCATIONS WHICH ARE 
— JUST INSIDE THE LEADING AND TRAILING EDGES OF THE BLADE 

CCMMON/INPUTT/GAM, AR, MS FL ♦OMEGA, R EDFACr VEL TOL f FNEW,DNEW,HBI ,MBO, 

1 MM,MHT,NBL,NHUSfNTlP,NIN,NCOT,NBLPL*NPPP,NOST AT,NSL,LSFR, 

2 LTPLtLAMVT, IMESH,ISLINE» I STATL,! PLOT,I SUPER ,I TSON, I0E8UG , 

3 70MIN, ZOMBI, ZCMBOtZOMOUT, ZHIN, ZT IN, ZHOUT, ZTOUT.ZHUBf 501, 

4 RHUB(50) ,ZTIPI50I ,RTIPf50) ,SFINI50»,RA0INI50) ^T!PI50 I ,PRIPC50I, 

5 LAMINI 50J,VTHIN(50», SFOUTC 50) ,RADOUT< 50) ,PRCPI50) ,L0SGUT!50) , 

6 LAM0UTI50),VTHCUT<50)»ZHST(50),ZTST(50),FLFRC50), 

7 ZBLf 50,50), RBU50, 50) ,THBU5C,50I,TNBL<50,50) 

COMMON/CALCON/MMM 1,MHTP 1, CP, EXPON , TGROO ,P I TCH ,CURVHl ,CURVTI , 

1 curvho,curvto,rhin,btin,rhout,rtcut,rleh,rlet,rteh,rtet, 

2 7LE< 50) ,RLE( 5C),7TEI 50),RTEf 50) ,ZLEOM( 101) ,RLECM(1C1 ) ♦ 

3 SLE0M(101I,THLEGM(101),ZTE0MI 10t),RTEOM< ipi) , STEOMI lOll ♦ 

4 THTE0MC101),ILE{101) ,ITEI101),ZCM(100,101),POMUOO,101), 

5 SOM( 100, 101),TOM( 100,101) ,BTH< 100,101) ,DTHDS(1C0, 101 ) , 

6 OTHDTI100,10l),PLOSS(100,101>,CPHIUOO,10l),SPHniOO,lOl) 
COMMONZSLC0M/ILS(50) ,I TSt 50) , ZSL f 100,50) ,RSL(100,50liMSLaOO,50), 

1 WZSl 1100,50), HRSLC 100, 50), WMSLf 100,50) ,WTHSL( 100,50) , 

2 ALPSLtl00,50) ,BETSLnOO,5O),WSLI10O, 50 ),WWCRSL( 100,50) , 

3 CURVSLI 100,50) ,WLSSLl 100,50 ,WTSSLUOO ,50) 

C— LEADING EDGE 

CALL SPLINTIRLE,ZLE,NBLPL,RLEn),l,ZSPL,CZCR) 

DO 20 J=1,NSL 
1*0 

10 I = I+l 

CALL SPLENTIRLE,ZLE,NBLPL,RSU1 ,J) ,1,7SPL,0Z0R) 

IF f ZSPL.GT.ZSL (I,J ) ) GOTO 10 
20 iLSfJ) * I 
C— TRAILING EDGE 

CALL SPLl NT<RTE,ZTE,NBLPL,RTEf l),l,ZSPL,CZnR) 

00 40 J*1,NSL 

1 = ILS(J)-1 
30 I * I+l 

CALL SPLENTIRTEtZTE,NBLPL,RSU I , J) , 1 ,ZSPL ,07nR ) 

IF (7SPL.GE.ZSL(I,J)) GO TO 30 
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AC = I-l 

B ETURN 
EKD 


SUBROUTINE TSONTN 

— TSONIN CALCULATES ANC PRINTS OUT DATA AS INPUT TO THE 
— TSONIC BLADE- TO-BLAne ANALYSIS PROGRAM 

CCMMCN SRW,SRE» ITER,IEN0*NREAC»NWR1T 

COMMON /INPUTT/GAM, ARfMSFL, ONEGA, RECFAC.VELTOL, FNEW, CNEW, M8!,M80, 

1 MM,MHT,NBL,NHUB,NTIP,NIN,NCUT,N8LPLfNPPP,NOSTAT,NSL,LSFR, 

2 LTPL,LANVT ,1MESH,1SL1NE, ISTATL, IPLOT, ISUPER, ITSON, IDEBUG, 

3 ZOMIN,ZOMBI t?:0M80,Z0N0UT,ZHINtZTIN,ZH0UT,?TCUT,7HUBf50), 

4 RHUBI50»,ZTIPC SO ),RTIP( 501 , SFIN ( 501 tRADINI 50) ,TIPf SO) ,PRIP(50), 

5 LAMINfSO) ,VTHIN<50),SF0UT I50>,RAC01JT<50 ),PROPI50),LOSOUTI 50), 

6 LAMOUTI 50) ,VTMOUT( 50) ,ZMST(50) ,ZTST(50) ,FLFR(50) , 

7 78LI50,50),RBL (50, 50 ), THBL ( 50, 50 ),TNBL( 50,50) 

COMNON/CALCaNZMMKl ,MHTP1 ♦CPiEXPON,TGROG, PITCH, CURVHI, CURVTI, 

1 curvho,curvto,rhin,rtin,rhout,rtout,rlem,rlet,rteh,rtet, 

2 7LE(50),RLE(50),ZTE(50),RTE(50),ZLEOM( 101),RLEOM( 101) , 

3 SLEOM(lOl) ,THLE0MU0ll,ZTeCNU0l),RTEaM(l0U,STE0M(l01), 

A THTE0M( 101),ILF( 10l),ITEI 101) ,ZOM( 100, 101) ,RCNf 100,101) , 

5 SCM(100,101),TOM(100,101),BTHC100, 101), CTHDSI 100,101), 

6 OTHOTI 100,101) ,PLOSS(100,101) ,CPHI (100,101 ) ,SPHU 100, 101) 
COMMON/VARCOM/AI A, 100, 101),UOM( IQO, 101) ,K( 100,101) ,RHO( 100,101) , 

1 VISUBS(lOO,lOl),HSUBTaOO, 101 ),WSUeZ( 100 ,lOl),NSUBR( 100 , 101 ), 

2 WSUBM( 100,l01),NTHtlOO,101),VTH(100,lOl),N(100,101), 

3 ALPHA! 100, 101), BETAf 100, 101),MWCR( 100, 101 ) ,CURV( 100,1011 , 

A HLSURFdOO ,101 ) ,WTSURF(100,101 ), CAMP ( 100 , 101) ,SAMP( 100, 10 1), 

5 RHOAVf 100,101) ,OELRHO( 100,101) ,FR(100, 101) ,DFCN(100, 101 ) , 

6 XI0N(100,101), ZETOM(100,101),DLDU( 100,101) 

C0MMQN/SLC0M/1LS(50) ,ITS(50),7SLU00,50 ),RSLU0O,50),«SU100,5O), 

1 M7SU 100,50) ,HRSL( 100,50) ,WNSL( 100,50) ,WTHSL(100,50) , 

2 ALPSL(100,50), EETSL(100,50),WSL( 100, 50),HWCRSL( 100,50) , 

3 CURVSLI 100,50) ,HLSSL«100 ,50) ,«TS$LUOO ,50) 

DIMENSION MSP(100),THSP1( 100) ,THSP2( 100) , MR( IOC) ,RMSP(IOO), 

1 BESP(100),DIST(50),DTDS (50 ), ANG(50), DRTHBL ( 50, 50), 

2 MLESP( 5) ,MTESP(5I ,RTLEP1(5) ,RTtE F2 (5 ) , RTTEPl (5 ) ,RTTEP2( 5 ) 

REAL MSa,MSP,MR,MSL,MLESP,MTESP 

INTEGER 8LDAT,AAN0K,ERS0R,STRFN,SLCRC,SURVL 

— preliminary CALCULATIONS 
WRITE(NWR1T,1000> 

WTFL = MSFL/100. 

ORF * 0. 

OENTOL = O.OOl 
NRSP = MM 
BLOAT = 1 
A ANON = 0 
ERSOR = 0 
STRFN - 2 
SLCRO = 2 
INTVL = 2 
SURVL = 3 
DC 20 JN=1,NBLPL 
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ClST(l) = 0. 
or 10 IN*2»NPPP 

10 DlSTtlN) » OIST<IN-l>+SORT(fZei<IN, JNI-ZBL(IN-l,JNH**2+ 

IIRRL CIN,JN )>RBL( IN-l, JNU**2) 

C«Lt SPLINE<OIST,TPBUlf JNIfNPPPt CTCSfANGI 
00 20 IN=lfNPPP 

ANG<IN» * ATAN<R8L(IN»JN»*0T0SnN)l 
20 DRTHBUINtJNI * TNEL( IN,JN)/CGS (ANeilNH 

--CALCULATE AND PRINT OUT TSONtC DATA ALONG EACH OF THE STREAMLINES 

00 70 JS=1»NSL 
TI = 1 
JJ = I 

TIPTEM = TlPFIFLFRfJSH 
RHOIP * RHOIPFIFLFRIJSM 

C — INTERSECTION OF STREAMLINE WITH BLADE LEADING AND TRAILING EDGES 
CALL INRSCT«ZSLI1»JSJ ,RSLIl,JSI ,MMtZLE, RLEfNELPL* ZLESL, RLESU 
CALL TNRSCTIZSLI ItJSItRSLI 1 , JS» , MM, ZTE t RTE »NBLPL tZ TESLtRTESL) 

C — INLET AND OUTLET FLOW ANGLES 

CALL LINI NT< ZOM,ROM,BETA,MM,MHTPl ,1 CO,l 01 , ZLESL, PLESL , BET A1 , 1 1, JJI 
CALL LININT<Z0H,R0M,BETA,MM,MMTP1» 100,101, ZTESL,RTESL,BETAOtII , JJI 
BETAI = BETAI*57.295780 
BETAO = BETAOM57, 2S570O 
C 

C— CALCULATE STREAMSHEET LOCATION ANC THICKNESS 
00 30 1S=1,MM 

MRUS! = MSLC IS,JSI-MSL ll,JS) 

RMSPIISI = RSLfIS,JS» 

CALL LINI NT! ZOM,ROM,RHO,MM, MHTFl ,100,101 ,ZSLI IS, JS) ,RSLt IS, JS), 
IRHCSL,II,JJ) 

CALL LININT(ZOM,ROM,8TH,MM,MHTPl,100,101,ZSLf IS, JS I, RSL IIS, JSI, 
IRTHSL, II, JJ» 

CALL LININT<Z0M,R0M,PL0SS,MM,MHTP1» 100,101,ZSLI I S, JSl ,RSL II S, JSI , 
lPLOSSL,ir,JJl 

30 BESPfIS) * MTFL/(RH0SL*WMSL(IS,JSl*RSUIS,JS>*BTHSL)*<l4-PLCSSLI 
C 

C — calculate blade SURFACE COORDINATES 
1 1 * I 
JJ * I 

NBLPTS * ITSIJSI-ILSIJSM3 

SPLNOl = NBLPTS 

SPLNOZ a NBLPTS 

ILSJ * ILSIJSl 

ITSJ a ITSUSl 

MSPfll a 0, 

HELM a SORTMZSLCILSJ, JSI-ZLESl!**2*IPSLIILSJ, JS l-RLESL J**2I 
CALL LININT (ZBL,RBL,THBL, NPPP,N8LPL, 50,50, ZLESL,RLESL, 

ITHLESLfll ,JJ) 

CALL LININTf7BL,RBL,DRTHBL,NPPP,NBLPL,50,50,ZLESL,RLESL, 
lORBLtll.JJI 
OPL * DRBL/RLESL/2- 
THSPlIll * OBL 
THSPZdl a -DEL 
1 SB = 2 

00 40 I S= ILSJ, ITSJ 

MSPIISBI a KR( ISI-MRULSJI+OELM 

CALL LINI NT<ZBL,RflL,THBL,NPPP,NBLPL,50,50, ZSLf 1S,JS 1,RSL ( IS,JS), 
1THSL,II,JJI 

CALL LININTI ZPL,ReL,0RTHBL,NPPP,NBLPL,50,5C,ZSLUS,JS) ,RSLnS,JS) , 
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lORBLtI I «JJ1 

oeu * ORBL/RSLC IS«JSI/2. 

THSPlCISRi * TMSI-TH.ESL+OBL 
THSP2(1SRJ * THSL-THLESl-OBL 
40 ISP « IS8+1 

OELP * SQRTKZTESL-ZSLC rrSJ,JSn»*2+fRTESL-RSL « ITSJ,JSU#*2J 
MSP(NBLPTS) = MSP<NBLPTS-1I+0ELM 
CTOROF * HSPINBLPTS) 

C«LL L!NrNT(ZBL»RBL*THBLtNPPP,NBLPL,50» 50, ZTESL,RTESL, 
ITHTESL,!! ,JJ) 

C^LL LININTCZBL,RBL,ORTHBL,NPPP,NBLPL,50,5C,Z7ESl,RTESL, 
10RBLflI,JJ) 

DBL * ORBL/RTESL/2. 

TPSPH NBLPTS) = THTESL-THLESL*CBL 
THSP2INBLPTSI = THTESL-THLESL-CBL 


C 

C—SUFT STREAMSFEET MERIDIONAL COORDINATES TO ORIGIN AT BLADE 
C — LEADING EDGE 

DELM = MRULSJJ-MSPI2) 

DC 50 IS*l,MM 
50 MR(IS) * MP<IS)-DELM 


C 

C— CALCULATE SPECIAL ARRAYS OF LOCAL BLADE SURFACE R*THETA COORDINATES 
C — AT LEADING AND TRAILING EDGES OF ELAOE SECTION 
NSPTS = 5 

IF (NBLPTS,LT.5I NSPTS»NBLPTS 
TLEREF s (THSPUl»+THSP2lin/2, 

TTEREF = f THSPl(N8LPTSI+THSP2(NBLPTSn/2. 

DC 60 1*1, NSPTS 
J * NBLPTS-NSPTS+I 
MLESPUI - MSP! n 

CALL SPLINT (MR,RMSP,MH,MLESPf I), 1,RLEP,0RDMJ 
RTLEPim * RLEP^ITHSPUn-TLEREF) 

RTLEP2fI> » RLEP*<THSP2in-TLEREFl 
MTESPUJ » MSPIJI 


CALL SPL1NTIMR,RMSP,MM,MTESP< n,l,RTEP,OROP> 
RTTEPim = RTEP*<THSPUJ|-TTEREF» 

«0 RTTEPZfn * RTEP»f THSP2fJI-TTCREFl 


C 

C — PRINT TSONIC DATA 

WRITEfNWRIT,10lO) 
MRITEINWRIT, 10201 
WPtTEINWRIT, 11601 
WRl TEINWRIT,1030) 
WRITEINMR IT, 11701 
WP1TE1NWR1T,1060) 
WRI TE(NVRIT,1170) 
WRTTEINWRIT,1050» 
WPITEfNWRIT,1180 » 
NR! TEC NNRIT, 10601 
WRITECNWR IT, 11901 
WPITECNWRIT,1070) 
WRTTECNWRIT, 11701 
WRITECNWR IT, 1080) 
WRITEfNWRlT,1170> 
WRITECNWRIT, 10901 
WPITECNWRIT, 1190) 
HRITECNNRITtllOO) 
WRITECNWRIT, 1170) 
WRITECNWR IT, 1110) 


JS,FLFRCJS) 

GAM, AR,TIPTEM,RHO IP, MTFL, OMEGA, ORF 

B£TAI,BETAO,CHOROF 

REDFAC,OENTCL 

KRL,NRSP 

SPLNOl 

CMSP(I) ,I»1 ,NBLPTS) 
<THSPICI),I*1,NBLPTS) 

SPLN02 

CMSPm,I*l,N8LPTS) 
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WR1TE<NHR1T, 11701 ( THSP2 ( I» t I»l tNALFTS ) 

WRTTECNWRIT, 11201 
WPITEfNWRIT,1170) (MB ( I It I* l»MM) 

HRITE(NWRITtll301 

WBITE(NWR ITt 11701 ( RMSR( 1 1 ♦! = 1 tMMJ 
WP1TE(NHRIT,U401 

WRITE(NXRI7,1170) (BESPII) f I*l»RMl 
WRITEfNWR 17,11501 

WRTTE(NWRIT,1200 1 BLOAT ,AANDK, ERSOR,STRFN, SLCRC, INTVLtSURVL 

•PRINT SPECIAL LOCAL ARRAYS OF BLADE SURFACE DATA 
WRTTEfNWRIT, 12101 

WRITEfNVRI 7,11701 (PLESPCIl ,lsl,KSPTS> 

MRITEfNMR IT, 1220) 

WRI TE(NMRIT,1170) ( RTLEPl ( I ) , 1*1 , NSPTS ) 

WPITEf NWRIT, 12301 

WRITE(NWR1T,1170) ( RTL EP2C 1 1 , I*l ,N SPTS) 

WRITEfNHRlT, 12401 

WRITE(NWRIT,1170) ( MTE SP( 1) , I *1 ,NSPTS) 

«RITE(NMRIT,1250) 

WRITE(NWRIT,117Q) (RTTEPl (I 1 , !*1 »NSPTS) 

WRTTE(NHRIT,1260) 

WRITE(NHR1T,1170) (RTT EP2( 1 ) , 1*1, NSPTS) 

HRITE(NWRIT,1270) 

70 CONTINUE 
RETURN 

— FORMAT STATEMENTS 

1000 FORMAT (1H1///4IX ,39( IH»1 /41X ,39H*** INPUT DATA FOR TSONIC PROGRA 
♦♦♦/41X, 39( IMP)////) 

1010 FCRMAT (4X,17MSTREAMLINE NUMBER, 13, 23H — STREAM FUNCTION *, 

IF 8* /I 

1020 FORMAT (7X,3HGAM, 14X, 2HAR, 13X, 3HTIP * 12X, 5HRH0I P , 12X,4HWTFL ,27X, 
15HOMEGA,12X,3HORF) 

1030 FORMAT (6X,5H8ETAI ,10X,5HB6TAC,11X,6HCH0B0F,11X,5HSTGRF) 

1040 FORMAT (6X,6HRECF AC»IOX,6HOENTOL I 

1C5C F13RMAT (6X,8HM81 MB0,9X,18HMM NB6I Na NRSP ) 

1060 FORMAT f 7X,3HRI I, 12X,3HR01 , 12 X,5HBE TI 1 ,11 X ,5HBETC1 ,11X,6HS PLNCl ) 
1070 FORMAT (7X, 4HMSP1, 2X, 5HARRAY) 

1080 FORMAT (7X,5H7HSP1,2X,5HARBAY) 

1090 FORMAT (7X, 3HR 12, 12X, 3HR02, 12 X,5HBE7I2, IIX , 5H8ETC2 ,11 X,6HSPLN02 > 
1100 FCRMAT (7X,4HMSP2,2X,5HARRAY1 
lUO FORMAT e7X,5HTHSP2.2X,5HARRAYI 
1120 FORMAT (7X,9HMR ARRAY) 

1130 FCRMAT (7X,llHRMSP ARRAY) 
llAC FORMAT (TX,11HBESP ARRAY) 

1150 FORMAT (5X,47H8L0AT AANDK ERSOR STRFN SLCRC INTVL SURVL) 

1160 FCRMAT (IX, 5G16.7 ,16X ,2016.7) 
inO FORMAT (1X,8G16,7) 

1180 FORMAT (30X,2I5) 

1190 FCRMAT (65X,G16.7) 

1200 FORMAT ( 1X,7I 7) 

1210 FORMAT (7X, 5HMLESP, 2X, 5HARRAY) 

1220 FCRMAT (7 X ,6HRTL£P1 ,2X ,5HARRAY I 
1230 FORMAT ( 7X, 6HRTLEP2,2X, 5HARRAY) 

1240 FORMAT (7X, 5HMTESP, 2X, 5HARRAY) 

1250 FTRMAT (7X,6HRTTEFl,2X,5HARRAY) 

1260 FORMAT (7X,6HRTTEP2,‘2X,5HARRAT) 
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1270 FCRf-AT II HU 
ENT! 


SUPROUTINE INDEV 
C 

C — INDEV CALCULATES A CCRRECTICN TO CTHOS TO ALLOW FCR INCIDENCE ANC 
C — DEVIATION lAFTER BLOCKAGE CORRECTION! 

C 

CONHCN SRWtSREf ITERtIENC,NREAC«N'WRIT 

COMMON /INPUTT /GAM »AR,MSFL, OMEGA, REDFAC»VELT0L,FKE«,DNEH»NBIfl>*!B09 

1 MM, MHT,NBL,NHUe,NT IP, N IN,N0UT,N8LPLt NPPP,NO STAT ,NSL ,L SFR , 

2 LTPL,LAMVT,!MESH,ISLINE,ISTATL,IFLCT,ISUPER, ITSCN, I0EflUG» 

3 70MIN, ?OMBI,7OMBO,ZOMOUTtZHIN,ZTIN,7H0UT,7TCUT,7HUBI50l , 

4 RHUei50!,ZTIPf50I,RTIP(50!,SFINI50l, RAO INI 5C 1 ,TIP( 50! ,PR I PI 5Q> » 

5 LAMINI 50! ,VTH! NISO! ,SF0UTI50! ,RADOUT ISO ! , PRCP I50!,L0S0UT 150 1, 

6 L AMOUTI 50!,VTH0UTI 501,ZHSTI 50! ,ZTSTI 50! ,FIFRC5C! , 

7 7 BL 150 ,50! ,RBLI50,50 ! ,THBL 150, 50!,TN 8L 1 50, 50 ! 

common/calcon/mmmi,mhtpi,cp,expon,tgrog,pitch,curvhi,curvti, 

1 CURVH0,CURVT0,RPIN,RTIN,RH0UT,RT0UT»RLEH,RLET ,R7EH,RTET, 

2 7LEI50! , RLE 1501, ZTE 150!, RTEI50!, ZLEOMI 101 !,RLECM( 101!, 

3 SLEOMI 101!,THLE0M| 10l!,ZTE0M| 101!,RTEOM( 1011 , STEOMIlOU , 

4 THTEOMIlOl ! , ILEI 10 1 ! , IT EllOl !, ZOMIlOO, 101 1,R0MI 100,101!, 

5 SOMMOO,1011 ,TCM100,101! ,fi7Hll 00,101 !, OTHDS 1 100 ,101 1 

6 OTHDTIIOO,101!,PLOSSI 100, 101 !,CPHII 100, 101! ,SPHH 100,101! 

C GMM0N/VARCCM/AI4, 100, 101 !,UOM 1100, 101 ),K| 100, 101 1, RHOI 100, 1011, 

1 WSUBSI 100,101! ,HSUBTI 100,101! ,WSUBZ 1 1 00,101 1 ,NSUBP 1100,1 01 !, 

2 WSUBMIlOO, 101),HTHI100, 101!,VTHI 100, 1011, Ml 100,101!, 

3 ALPHAI100,101! ,BETAI100,101!,WWCfi(100,101!,CUPVI100,101!, 

4 WLSURFI ICO, 101!,WTSURF| 100,101) ,CAMP( 100,1011 ,SAMPI100,101 ! , 

5 RHOAVI100,101!,CELRHOI100,10l!,FRI100, 10l!,DF0MI 100, 101! , 

6 XIDMI 100,101! ,7ET0MI 100,101! ,01001100,101! 

COMMON/ IN DCOM/ZPCI 11, 50!,RPCI 11,50! ,0THD7.I 11,50! ,D7H0RI11 ,50) 
DIMENSION OTOSLEI101!,OTOSTEI101! 

DEGrAD = 180. /3. 1415927 
ll = 1 
JJ = 1 

no * X 

JJC = 1 

IF ITMESH.LE.O! GC TO 10 

IF IIITER/IMESH!*TMESH.E0.1TEP.0R.1TER.EQ.1! GC TC 30 
10 IF I ISL INE.LE.O! 60 TO 20. 

IF I UTER/ISL1NE!^ISLINE.E0.1TER,OR,1TER.EO.I! GO TO 30 
20 IF I ISTATL.LE.Ol GO TO 40 

IF II ITER/ 1ST ATL!*ISTATL. NE. ITER .AND. ITER. NEol! GC TO 40 
30 WRITEINWRIT.lOlO! 

IF IREDFAC.lt. 1,0! HR I TEI NWRI T ,11 00! ITER 
IF IREDFAC,E0.1-O.AND.IFND.LE.O! WR ITEINHR IT, lllC! ITER 
IF IREDFAC.EO.l.O.ANO.IEND.EO.l! WRITE INWRIT , 1 120! 

IF IREOFAC.EO.l.O.AND.TENO.EQ.2! WRI TE INWRI T ,1 13C! 
WRITEINHRIT,1020! 

4C DO 120 J=l,MHTPl 
C 

C— CCPRECT CTHOS FOR INCIDENCE AT BLADE LEADING EDGE 
C 

I = ILEIJl-1 
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FXTRAP * SLEOW(J 1-SOMUf J1 

RTFSLE = BETA ( I , JI + EXTR AP*f B6T4 < 1 1 J J-PETA( I-l» J » V <SOWn» J )- 


CALL LlNINTC70M,R0M,BTHfMM,MHTPlf 100* 10 1, 7LE0M ( J 
II ItJJ) 

TANBFL = TAN( BTFSLE)*8THLE /PI TCH 

SPHILE = SPHI n»J )+EXTRAP*ISPFlI 1*1»J l-SPHU If JI 


IfRLEOMIJ) fBTHLEf 


1/(S0«I I*lt Jl- 


ISOMUfJU 

CPHILE = CPHH I,J}+exTRAP*CCPHni*lf Jl-CPHI (If J) I/ISOMU+l t J>- 


isrwn f jj > 

ALPHLE = 


ALPHA! I t J)+EXTRAP* (ALPHA! 1*1 fJI- ALPHA (If J ) J/(SOM( Hit J 


I- 


ISOH(IfJ)) 

CALL LININT! ZPCfRPCfOTHCZf Ilf ^BLPLf lit 50f ZL EOM ( J >,RLEOH( J I tOTOZLE t 
lIIDfJJO) 

CALL L ININT (ZPCfRPCfDTHOR, llfNBLPL.t lltSOt ZLEOM( J) tRLEOMI J» ,OTORLEf 
II in fj JO) 

OTDTLE, = OTDRLE*CPHILE-0TOZLE*SPHI.LE > 

IF( ITER.EO.l) OTDSLE(J) » OTDRLE*SPH!L£«-OTnZLE*CPHlLE 
TANBRL - RLEOMf J»*(OTORLE*SlN(ALPHLE)*OTC7LE*COS(ALPHLEn 
BTABLC = ATAN(TANRBL) 

RLINC = (ATAN(TANREU-eTA0LC)*CEGRAC , 

UBTNC * (BTFSLE-BTABLO)*OEGRAC 
EXTRAP * SCM(HlfJ)-SLEOMU) 

SAMPLE = SAMP(r+l t JI*EXTRAP*(SAMP(I*lf J)-SAPP( H2t J ) )/ (SOM ( H2t.J )- 


lSOM(I+lfJ)» . 

CAMPLE * CAMP( I+lf J H-EXTRAP*(CAMP( l*lfJ)-CAMP(I + 2fj)) / (.SOM( 1 + 2 1 J)- 

IS0M(I+Ifjn 


(TANBFL/RLEOMI J)-OTOTLE*SANPLE) /CAMPLE . 

(RLEOM(J »*RTEOM( J) )/2.*(THLEQM(J )-THTEOM( J» ) 
S0RT(BL0CR0**2«-(ST£0M( JI-SLEGM(J) )**2» 

BLOCRO/P ITCH/RLEOM( J| . , 

AMINl(,5f AMAXl(l./6.f Ul.-A.*SLIOLEl/ie.))*(STEOM( Ji- 


CTOSFt 
6L0CRD 
RLOCRO 
SLIOLE 
OISTLE 
1SLE0M(JII 
I = ILEIJ) 

50 SCIST = SLECM(J)*CISTLE-SOM( If J1 
• IF( SDIST.LE.0,1 GC TO 60 

DTHDSI ItJ ) * DTHOSI I, J )+<OTOSFL-OTOSLE( J) )*SOI <7 /OISTLE 
I » I+l 
GO TO 50 

60 DTCSLE(J) = OTOSFL 


— CCRRECT DTHDS FOR DEVIATION AT BLADE TRAILING EDGE 


I = ITE(J)4l 

EXTRAP * SOM(ltJ)-STEOH( J) 

BTFSTE * BETA! I f J l+EXTR AP*( BE TA( I , J) -BETA ( 1 + 1 , J) ) / ( SCM( I+l , J )- 
ISCMdfJ)) 

CALL LININK ZOH tROMf BTHt MM, MHTFl f 100 1 10 If ZTECM( J ), RTEOMI J ), ETHTEt 
ITIfJJ) 

CALL LININTIZCMf ROHfPLOSSf MMfMHTPlf 100, 10 1, 7 TEOM ( J ) ,RTEOM( J ) , 
IPLOSTEf II t JJ) . f 

TANBFL » TAN(8TFSTE)*BTHTE/PITCH/( 1,-PLOSTE) 

SPHITE = SPHKIf J) + EXTRAP*ISPH(I-l,JI-SPHI<If JM/(SOM( IfJl- , 
1S0M(I-I,jn 

CPHITE » CPHK I, J l+EXTRAP*! CPHI (1-1,J)-.CPHI( I , J)»/( SOMd f Jl- 
ISOMd-l ,J) ) 

ALPHTE = ALPHAd f J)+EXTRAP*( ALPHA (1-1, J)- ALPHA dfJ))/(SCMn,J)- 

ISCMd-lfJ)) 

CALL LIMNT(7PC,RPCfCTHCZ,ll,NBLPLf llfSOfZTECMtJ »,RTE0M(J1, DTCZTEf 
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HID, JJD) 

CALt LININT ( 7PC,RPC.0THCR»ll,NBLPL,ll,50,ZTE0«< tRTEGM< J) tOTDRTE, 
IT ID, JJOJ 

OTDTTE = nTDRTE*CPHITE-DTDZTE«SPHITE 

IF< ITER,E0.1) OTDSTEfJ) » OTDRTE*SPH!TE+OTDZ TE+CPHITE 

TAK'RRL = RTEnM(,>i*TCTORTE*SIN!ALPHTEj+DTCZTE*CCS TALPHTEJJ 

PTABLC = ATANtTANRRLT 

BLDEV = ( ATANtTANRFD-BTABLDMCEGR&O 

UBDEV = (0TFSTE-BTA8LO)*DEGRAC 

IP (lMpSH=LEoOJ GO TO 70 

IP IT ITER/If<ESHl=PTMESH«EO-ITEP,QR,ITER.eO,U GO TO 90 
70 IP I ISLINE.LE.O) GC TO 80 

IP 1 1 IT ER/ISL TNei*ISLINE.EO.ITER.OR»ITER.E0.1J GG TO 90 
80 IF nSTATL-LE.OI 6C TO 100 

IP n ITBR/ISTATL J♦^STATL.NE.1TER.AN0.ITER.^IE.1^ GO TO 100 
9C WPTTEINWRIT ,1000) J, BL INC,U B IRC, EtOEV, UROEV 
ICG E7TRAP * SLEGMIJ)-SDMCT-1»JI 

SAMPTE = SAMPCl-1, JHEXTRAP»ISAMPn=l,J)-SAMP( 1-2, J) ) /I SOMlI-l , J)»- 
lSCM(t-2 ,,n ) 

CAHPTE = CAWPf r-i,j| ♦ extrap* 1C AHP 11=1 ,J)-C AMP ( 1-2, J I l/f SOM t l-l, J J= 
ISOMI I-2,J ) ) 

DTDSFL * ITANBFL/RTEOMI J|-0T0TTE*SAMPTE)/CAMPTE 
SLIDTE = BLDCRD/PlTCH/RTEOMf Jj 

DISTTE = AMINH,5,AMAXlU./6.,(ll.-Ae*SL10TE)/18«n*{STE0MlJ) = 

15LE0M! J| j 

t * ITE(J) 

110 SCrST = SOM(I,J)-STEO«CJ)*OISTTE 
iFfSDIST.LE.O.I GO TO 120 

OTHDSII,J) = OTHOSI I,J)+CDTOSFL-DTOSTElJ) )*SDIST/DISTTE 
1 * I-l 
GC TO 110 

120 OTCSTEIJ) * OTDSFL 
WRITEINHRIT, 11401 
RETURN 

— FORMAT STATEMENTS 

1000 FORMAT (35X,tH*,2X,I3,3X,2IlH*,F9.Z,2X,F9.2,4XJ,lH*) 

1010 FORMAT (1H1,44X,40H*** INCIDENCE AND DEVIATION ANGLES ♦♦♦ / 
15CX,30UH*H 

1020 FORMAT I/i'35X,10M» MESH ♦, 8X,9HI NCIOENCE ,7X, IH* , 8X,9H0EVl ATION, 
17X,1H*/35X, lOH* LINE ♦, 3X,7H8L0CKE0, 3X, 9HUNBL0CKE0, 2X, IH*,3X, 
27HPL0CKED,3X,9HUNBL0CKE0,2X ,1M*| 

1100 FORMAT I/53X, 231 IH*J/53X, 23H* REDUCED MASSFLCW */53X,23 (IH*) / 
153X,18H* ITERATION N0« ,I2,3F */53X, 23 IlH* ) ) 

mo FORMAT I /52X,25I IH*| /52X,25H* FULL MASSFLCW ♦/52X,25I1H*)/ 

152X,19H* ITERATION NO. , I2,4H */52 X, 251 IH*)) 

1120 FORMAT </52X,25flH*)/52X,25H* FULL MASSFLOW */42X, 451 1H*1 / 

142X, IM*, 12X, 19HTRANS0NIC SOLUTION, 12X, 1H*/42X ,45H* BY VELOCITY 6 
2RAriENT APPROXIMATE METHOD */35X, 591 IH*) /35X, 59H* ALL VELOCITIES 
3 SMALLER THAN CHOKING MASSFLOW SOLUTION */35X, 59(1H* ) ) 

1130 FORMAT I/52X,25< 1H*)/52X,25H* FULL MASSFLCW ♦/42X,45I1H*)/ 

142X,IH*,12X, 19HTRANSQNIC SOLUT ION , 12X, 1H*/42X , 45H* BY VELOCITY G 
2RAD1ENT APPROXIMATE METHOD */35X ,591 1H*)/35X, 59H* ALL VELOCITIES 
3 LARGER THAN CHOKING MASSFLOW SOLUTION */35X,59IlH*) ) 

1140 FORMAT llHl) 

END 
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SUPRCUTINE SLPtnT 


C— SLPIOT 
C 


PLOTS THE streamlines IN THE HU0-SHROUD FLGW PLANE 


GCMMCN SRW,SRE» ITERflEND , 

COMMON/INPL'TT^GAM,AR,MSFL»OMEGA*REDFACtVELTCLt FNEW»CNEW,MBIfMBO, 

1 MMf MHT»NBL»NHUe»NT IP»NIN* NCUT t NBL PL» NPPP »NO STAT,N SL ^LSPR t 

2 LTPLtLAMVT«INESH,I SLI NEt I STATL* I PLCT »ISl>PER» ITSCN» ICEBUGt 

3 ZOM INt ZOMBItZOMPOt ZHMOUT * ZHIN f ZTl N *ZHOUT 1 7 TCt“T ♦ 7HUB( 501 » 

t, RHURI50I ♦7TIPI50>fRTIPf501.SFINI5d)»RA0INl5C)»TIPI50J.PRIP<50), 

5 LAMINI 501 tVTHlNISOI ♦SFOUTISO) *RAOCUT (50 1 tPRCP 150 1 1 tOSOJT (50l» 

6 LAMOUT( 501tVTH0UT< 50 1» ZHSTC 50 l»Z TST( 501 »FLFR( 50 f 

7 7RLf50,501 *RBLf50,50l»THBLl50,50),TNeL(50»501 

COMMON 7 SLCOMZILS( 50I»ITS(50) »ZSL( lOOtSO) tRSHl 00 t50) »MSL ( 100»50 )» 

1 HZSL(lOO»501tWRSLllOOf5Ql*MMSLMOOf501tWTHSLC 100^501 t 

2 ALPSLI 100,501 ,06TSLf 100 ,50 1 ,WS L( 100».50 ),MWCPSL UOO, 50), 

3 rURVSLf 100,50),WLSSL(1CO,5C) , WTSSLUOO ,501 
CCMMON/PLTCGM/ZLRNG, ZRRNG,RBRN€,RTRNG,ZHPLT( 100) ,RHPLTI 1001 , 

1 ZSPLTf 100),RSPLT(100),ZLPLTUOO),RLPLT(100),ZTPLT(100), 

2 RTPLT(IOO) 

DIMENSION TITLl (10), TITL2«3),T 1TL3( 3), TITLAUll, TITL5I 5) 


REAL 
DATA 
1,* AL 
DATA 
DATA 
DATA 


MSL 


TITL 1/*STRE*, *AMLI *, *NE P *, ’LOTS *, ’C ItL • , * 2 IN • ,*MERI* ,*0I(3N* 
P* ,*LANEV 

T1TL27»Z D»,»IREC* ,'TION*/ 

T1TL3/»R D», MREC*, 'TION*/ 

TI TLA/* SUBS' ,»ONTC*,* SCIS*, *OLUT*, * IONS', 'C21T ', *ERAT ♦, 'IONS' 
1,.'C1N0','.','XXXX'/ 

DATA T ITL5/ 'TRAN', 'SON I * , • CSCl • , * SOLU' , 'TION'/ 


DATA SYM/'X'/ 

IF flPLOT.LE. 0) RETURN 

IF( ( ITER/TPLOT)*IPLOT .NE.ITER.ANO.ITER.NE. 1) RETURN 


C 

C — plot the ITERATION NUMBER 

CALL LRGRICd, 1,0. 0,0.0) 

CALL LRCN VT( ITER, I, TI TL4(ll ), 1,4,0) 

IF (lENO.LE.O) CALL LRLEGNf T1TL4, 44,0 ,4.2 ,6.0, 1.0) 
IF (lENO.GT.O) CALL LRLEGN(TITL5,Z0,0,4.2,5.5, 1.0) 


-PLOT BLADE GEOMETRY AND STREAMLINES 

CALL LRMRGNd. 0,1. 0,2 .0,1.0) 

C ALL LR ANGE( ZLRNG,ZRRNG,RBRNG ,RTRNG) 
CALL LRGRir.(-l,-l, i-0, 1-0 I 
CALL LRLEGNfTITLl ,40,0,3.5,0.7 ,0.0) 
CALL LRCHSZ(2) 

CALL LRLEGN(TITL2,12,0,4.5,1.5,0.0) 
CALL LRLEGN(TITL3,12,1 ,0.4,4.5,0.0) 
CALL LRCHSZ(4) 

CALL LRCURV(ZHPLT,PHPLT,100,2,SYM,0.0) 
CALL LRCURV(ZSPLT,RSPLT,100,2,SYM,0.0) 
CALL LRCURV(ZLPLT,RLPLT, 100, 2, SYM, 0. C) 
CALL LRCURV(ZTPLT,RTPLT ,100,2,SYM,0-0) 
C— PLOT streamlines 
ECP = 0.0 
NSLl = NSL-1 
DO 10 JS=2,NSL1 
IF (JS.EO.NSLl) EOP=1-0 
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10 CALL LRCLlRV<7SLUtJS),RSUl,JS»,HM,2,SVM,ECP) 
C ALL LRCURV?7SLi.R SL ^ Oe U SVM , 1 . C> 

RETURN 

ewn 


SURRCTJTINE SVPLOT 

— SVPtnT PLOTS the mean STREAP SURFACE ANC BLADE SURFACE OUTPUT 
— VELOCITIES ALONG ALL STREAMLINES 

common SRW,SRE,I TER»IEN0 

CCMMON/ INPUTT/GAM, AR,MSFLtOMEGA,R60FAC,VELTOL»FNEV.,ONEW,MBI *PBCi 

1 MM#MHT »NfiL»NHUPtAT IP,NIN,NGUTf NBLPL tNPPPf NGSTAT»NSL»LSFR» 

2 LTPL,LAMVT,IMESH,ISLrNE,ISTATL*IPLCT,ISUPERtITSCK,IOEBUG, 

3 70MIN, 7nM8r, 7OM0Ot ZOMOUT, ZHINf ZT INtZHOUTf 7TCUT, 7HUB< 50) » 

4 RHUM50) »ZTIPf50) fRTIPf50)«SFIN(50)f RADINf50)rTTP<SO)tPRfP(50)* 

5 L AM IN! 50)* VTHINf 50) » SFOUTC SO) »RADOUTf 50) ♦PRCPfSO) »LOSQUT <50 ) * 

6 LAMOUT<50)*VTFOUTI50)*7HST<50),7TST(50),FLFR<50), 

7 7BH 50*50 fRBL<S0*50) *TH8U50*50) ,TNBL <50*50) 

COMMON/SLCOM/ ILSf 50)*ITS< 50),7SL< 100,50) *RSL< 1C0,50) ,MSL<100*50) , 

1 W7SLU00*50 ) *WRSL<100*50),WPSL <100,50),WTHSL< 100*50)* 

2 ALPSL< 100*50) ,BETSL< 100*50) *WSL< 100,50 ). WXCRSL< 100 *50 ) , 

3 CURVSLf 100*50), WLSSL< 100, 501, WTSSL< 100,501 
dimension TITLl<12),TITL2<9),TITL3U4),TrTL4<l51, 

I TITL5I 16) ,TITLt<6) ,TITL7<2) 

REAL MSl,LRNG 

DATA TITLl/' MERP *• DION* , * AL A«,*ND S • , 'URFA *CE$C *, ’HR 1* , »REL A ♦ 
1,*TIVE*,» VEL»,«’OCn*,*IES */ 

data TITL2/* ST», 9R£AM», »L INE*, • NO,*, *XXXX», • *,*U » ',*XXXX» 

1,’XXXX'/ 

DATA T ITL 3/*MER I* ♦ *DION »AL R • , »ELAT* , • I VE * , * VELC* , * C ITI* ,* EStC* 
l,*l$R6*,»F0R ','ALL • , 'STRE* , ♦ AML I « , *NES •/ 

DATA TlTL4/*StX:T* ,«ION SURF* ,* ACE * , * REL A* , * T IVE* , * VEL*,'OCIT* 
I, *IESS** »Cl$R *, *8F0R*, » ALL*,* STR * , *EAML * , • INE S* / 

DATA T ITL5 / • PRES ' , OSURE ' , • SUR* , * FACE*, * REL • , 'ATIV* , *E VE*,*LOCI* 
I, *TIES*,»$Cl$»,3Rgpo« AL»,*L ST* , ‘REAM* *• life*, *S •/ 
CATATITL6/® ME » , o RI 0£ «* *0NAL ** » CO* , *OROI *, *NATE * / 

DATA TITL7/9 VELO* ,» CITY* / 

DATA SVM/*X«/ 

IF < IPLCIT.LE.O) RETURN 

IF < <ITER/lPLOT)«!lPLOT.NE,ITER-ANC.ITER,NE,l) RETURN 

C— CCMPUTE RANGE CF PLOTS, AND SET UP FOR PLOTTING 
C 

LRNG s MSL<1,1) 

RRNG = MSL<1, 1) 

RRVG = 1000. 

TRWG = 0, 
nr 30 JS*1,NSL 

LRNG = AMINI(LRNG,vsL< 1,JS)I 
RRNG = AMAXKRRNG,MSL( MM.JSn 
1 LS J = ILS <JS ) 

ITS.) = TTS<JS) 

DC 10 IS=ILSJ,TTSJ 

BRNG = A«IM<BRNG,VILSSL<1S, JSn 

BRNG = AMtNKRRNG,WTSSL<IS, JS)> 
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TRNR = AHAXUTRNG,WLSSL<IS,JSn 
10 TRK<n = AMAXK T9NG«V*TSSL nSt JSn 

on 20 I S- IfMM 

BRKG s A»1lNl(BRNGf«SU IStJS )) 

2C TRNR = AMAXKTRNGtWSLf !S*JSH 
20 CONTINUE 

CALL LRMRGN(l«0,l.0f2-0»l*0) 

CALL LRANGEILRNG »RPNG,8RNG, TRAGI 
CALL LRGRrnn»l.U.O»ll.O) 

C 

C — PICT VELOCITIES ON EACH STREAMLINE 
C 

DC AO JS-1»NSL 
ILSJ * ILStJS) 

MPLC = ITStJS)-ILS( JSI + 1 

IF (JS.EO.l) CALL LRLEGN(TlTLl*A8»0f2.5t0.7,0.C) 

CALL LRCHSTO) 

CALL LRCNVTIJSt lfTITL2f 5l,ltA»C) 

CALL LRCNVTIFLFRC JS»t3tTITL2(8»,3«8, A) 

CALL LRLEGNCTI TL2»36»0,2.2»<3.5»0.0I 
CALL LRCHS7(2) 

CALL LRLEGNfTITL6»24,0t3.Atl.3t0«01 
CALL LRLEGN<TITL7, 8, ltO.2,4. <3,0.01 
CALL' LRCHS 7f4> 

CALL LRCURV(MSLa,JS),V<SHl,JSl,MM,2,SYH,0.0» 

CALL LRCURVIMSLt 1, JSI , WSLIl » JSi , MM,4 ,SVM,0. 0) 

CALL LRCURVfMSL(TLSJ,JSI,WLSSLf ILSJ ,JS) ,N8LD, 2, SYM,0. 0> 
CALL LRCURVfMSHILSJ,JS),WLSSLnLSJ,JS> ,MBLD,4fSYM,0.0> 
CALL LRCURVIHSLI IL SJ, JS ) ♦ WTSSLU LS J, JSI ,MBL0,2 ,SYM,O.Ol 
40 CALL LRCURVfMSL < ILSJ, JS I,WTSSLnLSJ,JSI»MflLD,4,SV«» l.OI 

c 

C— plot meridional VELOCITIES FOR ALL STREAMLINES 
C 

CALL LRGR!D(3,3fll.O,ll.OI 

CALL LRLEGNIT1TL3,56,0,1.7,0.7,0.0I 

CALL LRCHS7f2I 

' CALL LRLEGNITITL6, 24, 0,3.4,1.3,0.01 
CALL LRLEGNITITL7,8, l,0.2,4,g,0.0) 

CALL LRCMSZ(4) 

EOP =0,0 

no 50 JS=1, NSL 

IP (JS.EO.NSLI ECP=1.0 

50 CALL LRCURVIMSLf 1,JSI ,WSU l,JS),MM,2,SYM,E0PI 
C 

C — plot suction surface VELOCITIES FCR ALL STREAMLINES 
C 

CALL LRLEGNIT ITL4, 60,0, 1.2,0.7,0.01 
CALL LRCHSZ(21 

CALL LRLEGNITITL6, 24,0, 3.4, 1.3,0. 01 

CALL LRLEGNITITL7,8, 1,0.2,4.9,0.01 

CALL LRCHSZ(4I 

EOP = 0.0 

DO 60 JS=l ,NSL 

IF I JS.EO.NSLI eOP=l. 0 

IlSJ = ILSUSl 

MRLO = ITS! JSl-ILSI JSI+l 

60 CALL LRCURV(MSLnLSJ,JSI ,VILSSLIILSJ,JS1 ,M0LO,2,SYM,ECPI 
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C — plot pressure surface VELOCrriES FOP ALL STREAMLINE*: 

c 

CALL LRLEONfT ITL5,6^V»0, 1.2t0.7,0.0) 

CALL LRCHS7C2) 

CALL LRLEGN(TITL6»24t0f 3,4,1«3<,0.0J 

CALL LRLERN(TITL7,8, 1,0.2,4,9,0,01 

CALL LRCHS7f4l 

EDP = 0.0 

nc 70 JS= 1 ,NSL 

IF (JS.EQ.NSLS EOP=l.O 

ILS4 = ILSIJSI 

MRLD - ITSIJSI-ILSIJSKI 

70 CALL LRCURV(MSLnLSj,JS),WTSSLULSJ,JSJ,PBLC,2,SYM,E0P) 
CALL LRCURVI?SL,RSL,0,l,SYM,t.C» 

RETURN 

EKO 


SUBROUTINE TVELCY 


-TVELCY CALCULATES THE FULL MASSFICW, TRANSONIC SOLUTION 
-USING VELOCITY GRADIENT EQUATIONS 


CCMMCN SRW,SRE,ITEP,!ENC,NREAC,NWRIT 

COMMON /INPUTT /GAM,AR,MSFL,nMEGA,REDFAC,VELTCL,FNEW ,ONEW , MRI ,MeOt 
MM,MHT f NBL»NHUB,NTIP,NIN,NOUT,NBLPL,NPPP,NOSTAT,NSL,LSFR, 
LTPL,LAMVT »IMESH,ISLINE,ISTATL,IPICT,ISUP£R, ITSCN, lOEBUG, 

70MIN, 7OMei,7OMBO,ZOMOUT,ZHIN,ZTIN,ZH0UT,7TCU7,?HUP(50I, 
RHU8(50|,ZT1PI50),RTIPI50),SF1NI50),RADINC5C),TIP(50),PR1PI50>, 
LAMINI 50UVTHINI50> » SFOUTI 50 » , R ABOUT f 5 0 > , PRCP (50 ) ,LOSOUT 1 50 ) , 
LAMOUT(50),VTHOUTC50»,7HST( 50),7 7ST( 501 ,FLFR(5C) , 

Z8L (50,501 ,RBl (50,50 1 ,TH8L (50, 50 1,TNBL (50, 50 I 
COMMON/CA LCON/mmui ,MHTP1,CP,EXPCN,TGR0G,PITCH,CUPVHI,CURVT I , 

1 CURVHO,CURVTO,RNIN,RTIN,RHOUT,RTOUT,RLEH,RLET,RTEH,RTET, 

7LE(501 ,RLE(501,nE(50l,RTE(50l, ZLEOM( 101 1,RLE0M( 101), 

SLEOM( 1011 ,THLEOM( 101) ,ZTECP(lOl) ,RTE0P(101 ) ,STECP(101 1 , 

THTEOM( 101 1, ILEdOl 1 , ITE( lOl) ,ZnM( 100, 101),R0P( 100, lOl) , 

SCM( 100,101 1 , TOM (100, 1 01 1 ,BTH(100,101) ,OTNCS( 100, 1011, 

DTMDTf 100, 101),PL0SS( 100,101) ,C PHI ( 1 00 , lOl) , S FHI ( 1 00,101 1 
CCMMON/VARCOM/A(4,100, 101),U0M( 100, 101),K( 100, 101) ,RHO( ICO, 101) , 

1 WSUBS( 100,101 1 ,NSUBT(100,101) , WSUB Z ( 100 ,101 ), WSIIBRdOO, 101), 

2 WSUflMf 100,101 ),WTH( 100, 101), VTH( 100, 101) ,M ICC,1C1), 
ALPHA(100,10l ) ,BET A (100, 101 ) , WWCR (100, 101 ), CURV( 100, lOl) , 
WLSURF( 100,101 ),WTSURF( 100,101) ,C AMP (1 00, 101) ,S AMP (1 00,1 01 ) , 
RH0AV(100,101 >,OELRHC( 100, 101), FR (100, 10l),PFCM( 100, 101) , 

XI 0M( 100,101) ,ZET0«d00,101) ,DLDU(100,101 > 

OIMENS ion OWMOSI 100),OW70S( 100) ,TV£RTI 101) , 

WMVERTdOl ) ,WTVERTd01) ♦THLMRdOl ),CPTIP( 101),RCARB( 101) , 
DWMVERI I Cl) ,DWTVERdCl) ,ATVEL(lOl) ,8TVEL(101I tCTVELdOl), 

DTVEL( 101),ETVEL( 101 ), FTVEL ( 101 ), LAMBDA ( 101),LAMB00( lOl) , 
TIPT(lOl) ,T0Pd01 ) ,RHOIP(101),RHOOP( 101 ), 

OWMOMf 100, 101) ,DWTDM( 100,101) ,nvMOTd 00 ,101 ) ,CWTOT(100,101 ) 

PEAL •'SFL,L AMB0A,L AMBOO,LAMDUT,LAMIn,LAMDAF 
INTEGER SRW,SRE 
logical REPEAT 
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C— RESTffiE FULL FASS FLCW VALUES* ANC REINITIALIZE LAKCAF AND RVTFTA 

I END * lENO+l 
J7 = I 

IF IREOFAC.EO.l.O) JZ»2 
IF (RECFAC-EO.1.01 go to 60 
WRITEINWRIT tlOAOI 
OMEGA = OMEGA /REOF AC 
MSFL = MSFL/REOFAC 
DC 10 J =l,NIN 
LAMINCJI = LAMINI JJ /REDFAC 
10 VTHINUI = VTHINIJ l/REDFAC 
DC 20 J sl,NGUT 
LAMOUTIJ) * LAMOUTI J)/REOFAC 
20 VTHOUTUI = VTHOUT(J)/RECFAC 
CALL LAMNIT 
CALL RVTNIT 

— CALCULATE PARTIALS WITH RESPECT TC T CF MSUBM AND WSUBT 

nc 40 I»l,MM 
nc 30 J*l,MHTPl 
TVERTU) » TOMUtJ) 

WMVERTCJI = WSUBMH.J) 

30 WTVERTIJl * HTH(I,J| 

CALL SLOPE S(TVeRT*MMVERT»MHTPltOWMVER» 

CALL SLOPES ITVERTtWTVERTtMHTP l,OHTVER» 

DC 40 J*l,MHTPl 
DWMDTUtJ) a OWMVERIJ) 

40 DWTOTtI*J) * CWTVERtJ) 

—CALCULATE PARTIALS WITH RESPECT TO S OF WSUOM AND WSUBT, AND THEN 
—CALCULATE PARTIALS WITH RESPECT TO M OF MSUBM AND WSUBT 

on 50 Jal.MHTPl 

CALL SLOPES (SOMUtJ )»MSUBM( I, J ),MM»DWMOS) 

CALL SLOPES(SOMU*J|,WTHa*J)*MN»,DWTCS» 
on 50 !al,MM 

DWM0M(I,J) 9 ICWMCS(I»*CAMP| I,J)*OWMDTf I»J)*SAMPn ,J})/RE0FAC 
50 DWTDMfl.JI = IDWTOSm*CAMPn,J)*OWTCTU»J)*SAMP(I,J))/REDFAC 
RTOLER = 1, E-4 
CHLIM = MSFL 
MEAN * MMT/2+1 

—SOLVE VELOCITY GRADIENT EQUATION CN EACH VERTICAL MESH LINE 

60 DO 280 I*l»MM 

WHUB = HI I*l}/REOFAC 

DELMAX a HII tMEANj /20. /REOFAC 

N COUNT a 0 

C — CALCULATE COEFFICIENTS A* B* AND C FOR THE VELOCITY GRADIENT EQUATION 
C--1MTIALI7E COEFFICIENT C TO ZERO 
DC 80 JalfMHTPl 

LAMBDAIJ) * LAMDAFlUOMf r,Jl ,I»J) 

LAMBDDCJI = RVTHTAIUOMf I,J|, 1,J) 

TIPTIJI = TIPFCUOMlItJU 
TOPU) a TOPFIUOMI I,jn 
RHOIPIJI = PHOIPF(UOM<I*J n 
RHOOPIJ) a RHCCPFIUOMII ♦Jn 
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PTVFLfJJ = 0. 

CTVEUJI * 0. 
mVFLfJ) * 0. 

IFM.LT,lL6(JI.OR,|.GT.ITe< JH GO TO 70 
SAL » SIN<ALPHACI,J I) 

SPETA » SIK(8ETA<I»JJ ) 

CBETA = COSfBETAt! tJ) 1 

ATVEUJl » CBETA**2*CAHPC ItJ »*CURVf I, J)-S8ETA**2*CPHHI ,J| / 
IRC^^tl.JX-OTHDTn »J>»SAL*C0ETAPSBETA 
BTVEHJ) » CBETA*SAMP< UJ»*OWWOMn ,J»-'2,P0MEGA*SEE?A*CPHH1 ,JI 
1+PCWCI, JIPCTHOTf l,J )PCBETA*tOWTOM( I, J l♦2.*aMEGA♦SALI 
GO TO BO 

70 ATVEUJl * CAMPf t«Jl*CURV( I » J| 

OTVEL<J) * CHMOM(l,J)*SAMPU.Ji 
eC CONTINUE 
C 

C — CALCULATE C CCEFF1CIENT FOR THE VELOCITY GRADIENT EQUATION AND OTHER 
C— CONSTANTS FOR CHECKING CONTINUITY 
90 CO 120 J=l»MHTPl 

CPR2 * 0NEGA*R0Mn,J|**2 

TViLMRlJ) ® 2.*OPEr,A*LAPBOAIJ)-CPEGA*OPR2 

CPTIPfJI « 2.*CP*TIPTIJI 

IFU.GE.ILEUn GC TO 100 

WHIRL s LAMBDA! J) 

TEMPER » TIPTfJI 
DENS » RHOIPfJI 
GO TO 110 

100 IFfULE.ITEIJn GO TO 120 
WHIRL * LAMBDCfJI 
TEMPER * TOPfJI 
DENS * RHOOPIJ) 

110 CTVEUJI * -CWHIRL-0MR2I/R0M1 1»J l♦♦2♦(CURV( UJ|*(WHIRL-0MR2I* 
ICAMPII ,J1 +f HHIRL*0MR2|/BCMU,Jl*>CPHIf I, Jl I 
120 RCARBUl * RHOIPCJI*CAMP( I*J|PRCMn,JI*BTHfI,J| 

—CALCULATE COEFFICIENTS E AND F FOR THE VELOCITY GRADIENT EQUATION 
TPP = TlPT(ll-TWLMRfll/2./CP 
IFITPP.lt. 0.1 GO TO 290 

PREl - RHOIPIll+AR*TIPTIll*UPP/TIPTU)l**(GAP*EXFCNI*a.- 
IPLCSSCUll I 
DC 130 J»2fMHTPl 
DTIP - TIPTfJI“TIPT( J-ll 
DLAM = LAMBCA(JI>LAMB0A(J-1I 
TPPN * TIPTf JI-TWLPRC Jl /2./CP 
IF (TPPN-LT.O.I GO TO 290 

PRELN * RH0IP<JI*AR*TIPTIJI*ITPPN/TIPT<jnPP(6AM*eXP0Nl*<l.- 
1PL0SSIT,JII 
OTPP » TPPN-TPP 
OPREL = PRELN-PREL 

ETVELf J-ll * CP*DTIP-0MEGA*0LAP-CP*DTPP+AR/IPRELN*PRELI*<TPPN+TPPI 
l*CPREL 

FTVEUJ-ll » DTPF/«TPPN»TPP|-AR/CPRCPREL/<PRELN4PREL) 

TPP = TPPN 
130 PREL = PRELN 

—OBTAIN NUMERICAL SOLUTION TC THE VELOCITY G..AOIENT ECUATION 
— FCR AN ESTIMATED VALUE OF W AT THE HUB 

REPEAT = .FALSE. 
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1^0 TKr = i 

15C HU ,11 * VHUB 

NCnUNT = NCOUNT+1 

IF n.RE.ILEtlUANO.I.LE.lTEUn r,0 TO 160 

WHIRL = LA«POAfl > . ^ , 

IF II.GT.lTFfin WHIRL * LAMBCCm 
SPETA = (WHIRL/ROMII, U-OMEGAPROMf I,m/WHUB 
IFIABSISBETAI .GT.l.l GG TC 210 
PETAU,1) = ARSINI SBETAl 
160 C PET A = COS I PET AIM M 

170 WSO * WHU8**2 • 

TTIP = 1.-CHSQ+TWLHR< in/CPTIP(H 

r fittip.lt . 0.1 go to 220 

RVA = TTlP**EXPON*WHUB*CBETA*RCARBm 

DO 200 J»1»MHT ■ ■ 

DELTA = TOWfltJ+lI-TOm ItJI 

WAS * wn.JH(ATVEL(J»*WCl,JI*PTVELUI+CTVEUJ)/WUtJI*CBETAP 
IDTVELf JII»06LTA*ETV6L( J)/W( I,J)*FTVELU)*wn,J» 

IF n.GE.ILEI J«n.AND.I.LE.ITEU4^1)l GO TO 180 
WHIRL = LAMBDA! J> II 

IF (l.GT.ITECJ + in WHIRL * LAM800(J+1I 
WTHETA = IWHIRL/RCMfI»J + ll-CME€A*RO»MI,J+in 
SBETA * WTHETA/WAS 
IFIABSfSBETAI.GT.l.) GO TO 210 
BETAfltJ+n = ARSINfSBETAI 
180 CBETA = COS(BETAn ♦J+lll 

WASS = WI I,J)+IATVELlJ+ll*WAS+BTVELf J + n+CTVELCJ*ll/MAS+C0ETA* 
10TVELIJ+in*0ELTA+ETVEL< JI/WAS+FTVELIJ)*MAS 
wn,J + l) » (WAS4WASSI/2. 

WSO « Wn«j4l)«*2 

TTIP » l,-fWSQ4TWLHRf J+l)l/CPTIPIJ4l» 

1 F!TTIP,LT.O. I GO TO 220 

IFf!.GEwILEU*n.AN0.1.LE.ITEIj4in GC TO 190 
SBETA * WTHETA/WI If J+l) 

IFfAeS(SBETA).GT.l.» GO TO 210 
RETA!I,J+1) = ARSIMSBETAI 
190 CPETA * COSiBETAf l,J + U » 

RVAS * TTIP**EXPON*W(I,J+l)*CeETA*RCARBCJ+l» 

U0MII,J41» = !RVA+RVAS)*0ELTA/2.4U0»'II,J) 

200 RVA * RVAS 

— CHECK CONTINUITY AND ESTIMATE NEW VALUE FOR W AT THE HUB 

IFnNC.GE.6.AN0.ABS(MSFL-U0Mn,WHTPl) ).L£.MSFt *RTOLER» GO TO 250 
CALL CONTIN«WHUB»UOMII fMHTPlI ,INO, JZ,MSFL.DELMAX| 

TF( INC.LT .101 GO TO 150 
IFIINO.EO.IOI GO TO 250 
GO TO 230 

210 HHUB = MHUP+0. 5*DELWAX 

IFINCOUNT.lt. 1000) GO TC 140 
GO TO 230 

220 WKtB * WHUP-0. 5*CELMAX 

IFINCCUNT.lt. 1000) GO TC 140 
230 WRITF (NWRIT,1010) I 
I MESH « I 
I St INE = 0 
ISTATL =0 
DC 240 J=ltMHTPl 
240 UOMfl.J) = UOMf I , J) /MSFL 
GO TO 200 
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— SOLUTION C0T/IINEO» CHECK ACCURACY OF TIPf LANBCAt ANC RHOIP 

250 CCKTINUE 

no 260 J=2tHHTPl 
UOMUjJ) = UOMfI,J»/MSFL 
TVAP » T!PFtUOMU,jn 

IFfABSI TVAR-TIPTf JM.GT-TVARPPTOLERI REPEAT = •TPUE. 

TIPTU) * TVAR 

TVAR * TnPFIUOHlI.jn 

IFfABS(TVAR-TOP( JJI.GT.TVARPRTOLER) REPEAT * .TRUE. 

TOPCJI = TVAR 

TVAR = RHOIPFUIOHUf J M 

IF f AftS!TVAR-RHO!Pf Jn.GT.TVARPRTOLER) REPEAT = .TRUE. 

RHOIPIJI » TVAR 

TVAR » RHOOPFfUOMfltJ )l 

IF lABStTVAR-RHOOPUn.GT.TVAR+RTOLERl REPEAT » .TRUE. 

RHOOPIJI * TVAR 

TVAR = LAHCAFfUOMfUJ). l.J) 

IFIABSfTVAR-LANBOAf JI).GT.ABS<TVAR)*RTOLER) REPEAT ® .TRUE. 

LAMBDA U) = TVAR 

TVAR * RVTHTAIUOMUtJ »t If Jl 

lFIABSfTVAR-LAMBOOU)>.GT.ABS<TVAR)*RTOLER) REPEAT * .TRUE, 

260 LAMBDOIJI = TVAR 
WHUB » Wf 1 fll 

IFfREPEAT.ANO.NCOUNT.LT.lOOOl GO TO 90 
IFf INO-NE.IO) GO TO 270 
CHFL = UOHIIfMHTPllPMSFL+FLCATlNBLI 
CHLIM * AMlNKCHLlMfCHFL) 

WRITEINHRtT, 10001 ItCHFL 
270 IFfREPEATI WRlTElNKRlTtlOlOl 1 
280 CONTINUE 

— FINISHED VELOCITY GRACIENT SOLUTION ON EACH VERTICAL MESH LINE 
—CHECK CHOKE LIMIT 

IF (CHLIM.GT.<0.9999*MSFL)l RETURN 
1 SUPER « 2 

WRITEINHR ITf 1030* MSFL»CHLIM 
RETURN 

290 HRlTEINKRITfl020J 
STOP 

— FORMAT STATEMENTS 

1000 FORMAT I69HLMSFL EXCEEDS CHOKING MASS FLOW FOR VERTICAL ORTHOGONAL 
I WESH LINE I =fI3/22H CHOKING MASS FLOW s,G15.6) 

1010 FORMAT (88HL A VELOCITY GRADIENT SOLUTION CANNOT BE CBTAINEC FOR 
IVERTICAL ORTHOGONAL MESH LINE 1 =, I3/AXt 56HANY SUBSEQUENT OUTPUT F 
20R THAT MESH LINE MAY BE IN ERRCRl 

1020 FORMAT I62HL THE UPSTREAM INPUT WHIRL OR TANGENTIAL VELOCITY IS TO 
10 LARGE) 

1C30 format I51HL CHOKING MASSFLCW IS LESS THAN THE INPUT MASSFL0H/6Xt 
116H1NPUT MASSFLOW »,G13. 5/6X, 26HMI NI MUM CHOKING PASSFLOW *tG13,5/ 
26X,92HA SOLUTION CAN ONLY BE CBTAINEC IF INPUT MASSFLOW IS LESS TH 
3AN THIS MINIMUM CHOKING MASSFLCW) 

ICAO format I//52X,25< IH*)/52X, 25H* FULL MASSFLOW ♦/A2Xf45aH*) 
1/42X,1H*,12X,19HTRANS0NIC SOLUT ION, 12X, IHV A2X* A5H* BY VELOCITY 
2GRADIENT APPROXIMATE METHOD F/AZXfASU HP )///// ) 

ENO 
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FU^*CTION TOPFfSF) 


"TCPF CALCULATES COMNSTREAM ABSOLUTE TOTAL TEMPERATURE 
— AS A FUNCTION OF STREAM FUNCTION 

CCMMCN/INPUTT/GAM, ARfMS FL , OMEGA, REOFAC»VELTOL,FNEW,ONEW,MBI ,MBO, 

1 MM,MHT,NBL,NHU8,NTIP,NIN,NCUT,NRLPL,NPPP,N0STAT,NSL,LSFR, 

2 LTPL,LAMVT,IMESH,ISLINE,ISTATL,lPLCTtI SUPER ,nSON , I DEBUG, 

3 70MIN, ZOMBI, ZCM0O, 70M0UT, ZHIM, ZT IN, ZHOUT, ZTOUT, ZHUfll 501 , 

4 RHUBI 50) ,ZH PI 50) ,RTIPI50) , SPIN (50) , RAO IN 150 ) ,T IP (50 ) , PR IPI50 ), 

5 L AMIN( 50),VTHIN(5Q),SFOUT(50) ,RA0OUT( 50) ,PRCP(50) ,L0SCUT(50) , 

6 LAM0UT(50) ,VTHGUT(50I, ZHST(50), ZTST(50 >, FLFR(50), 

7 ZBL( 50, 50),RBL(50,50) ,THBL(50,50),TNBLC50,50) 

CCMMON/CALCON/MMM 1,MHTP 1, CP, EXPON , TGROG ,P I TCH,CURVHI ,CURVTI , 

1 CURVH0,CURVT0,RHIN,RT1N,RHCL'T,RTGUT,RLEH,RLET,RTEH,RTET, 

2 ZLE(50),RLE(50), ZTE( 50),RTE( 50),ZLEOM( 101),RLEGM( 101) , 

3 SLEOM(lOl) ,THLEOM(101),ZTECM(101),RTEOM(101),STECM( 101), 

A THTEOMI 101), ILE( 101) ,ITE(lCn ,ZOM(100, 1011 , RCMdOO, 101 ), 

5 SOM(100,101),TOM(100, 101), BTHdOO, 101), DTHOSI 100,101), 

6 0TH0T(100,10l) ,PL0SSa00,101),CPHI(100,101),SPHI(lOO, 101) 

REAL LAMDAF 

TCPF = T1PF(SF)-0MEGA/CP*(LAMDAF(SF, 1LE( 1), 1)-RVTHTA( SF , ILE( I ) , 1) ) 

RETURN 

END 


FUNCTION TIPF(SF) 

-- ’TIPF CALCULATES UPSTREAM ABSOLUTE TOTAL TEMPERATURE 
— AS A FUNCTION OF STREAM FUNCTION 

COMMnN/INPUTT/GAM,AR,MSFL,OMEGA,REDFAC,VELTOL,FNEM,ONEH,MBI ,MB0, 

1 MM,MHT,NBL,NHUB,NTIP,NIN,N0UT,NfiLPl,NPPP,NOSTAT,NSL,LSFR, 

2 LTPL,LAMVT,1 MESH,1 SLINE,ISTATL,TPLCT,ISUPER ,ITSCN,IDEBUG» 

3 70MIN, ZOMBI, 7CMB0, 70M0IJT,ZHIN,ZTIN, ZHOUT, ZT0UT,ZHUB( 50) , 

4 RHUB(50) ,ZTIP(50),RTIP(50)tSFlN(50),RA01N(50),TIP(50),PRIP(50), 

5 LAMIN( 50) ,VTHIN( 50) ,SF0UT(50) ,RA00UT(50) ,PRCP (50) ,L0S(DT <50 ), 

6 LAMGUT(50),VTH0UT(50),ZHST(50),7TST( 50) ,FLFR( 50) , 

7 TBL(50,50) ,RfiL(5O,5O),TH8L(5O,5O),TN0L(5O,5O) 
C0MM0N/CALC0N/MMM1,MHTP1,CP,EXP0N,TGR0G, PITCH, CURVHI,CURVTI , 

1 CURVHO,CURVT0, RHINtRT IN, RHOUT, RTOUT, RLEH, RLET,RTEH,RTET, 

2 7LE(50),RLE(50),7TE(50),RTE(50),ZLEOM(101),BLEOM(101), 

3 SLE0M(l01),THLEOM(lOl),ZTECM(l01),RTE0M{lCl),$TE0M(l0l), 

4 THTE0M(10l),ILE(101),lTE(10l),Z0M(100, 101),ROM(lCO,lOl), 

5 S0M( 100,101), TOMdOO, 101), BTHdOO, 101), OTHCSflOO, 101), 

6 DTH0T( 100, 1011, PL0SS( 100, 101) tCPHK 100,101) ,SPHI ( 100, 101) 
DIMENSdiN SL0PE(50),EM(50) 

tc = 2 ' 

IF(ABS(SF-SFIN(l)).GT. TOLER) GO TO 10 
TIPF = TI Pd) 

RETURN 

10 IF(SF-SFINf D) 20,20, 30 
20 TIPF - TIPd) + (SF-SFlN(l))MSLOPE(l) 

RETURN 

30 I F( ABS fSF-SFIN(K ) ).GT.T0LER ) 60 TO 40 
TIPF * TIP(K) 
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RETURN 

40 TPfSF-SFlN(K) J 70,70,50 
50 i^=K+l 

1F<K-NIN) 30,3C,tC 

60 TTPF * TIP(NINlT(SF-SFlN(NINn*SLOPE<NINJ 
RETURN . , ' 

70 5K = SFIN «K )-SFIN«K-ll 

TIPF = EM<K-1 )*<SFIN(K »>SF)**3/6./SK+e«(K )*<SF-SFINfK-l) )**3/ 

1 6./SK+(TIP (K>/SK-EPfKl*SK/6.1*(SF-SFINfK-in + fTIP(K-ll/ 

2 SK-ENfK-l)#SK/6,)«CSFINfK )-SF) 

RETURN 

FNTRY TIPNIKNNNI 

C^LL SPLINEtSFlN,TlP,NIN,Sl.OPE,EM> 

TOLER - ABSfSFIN«NIN)-SFIN(U I/FLCATtWIN}«l.E-6 

R ETURN 

E^n 


FUNCTION RHOIPFtSF) 

— RHOIPF CALCULATES UPSTREAM ABSOLUTE TOTAL DENSITY 
— AS A FUNCTION OF STREAM FUNCTION 

CCMMON/INPUTT/GAM, AR,MS FLtOMECA,REDFAC, VELTOL,FNEW,DNE«,MBI ,«B0, 

1 MM,MHT,NBL»NHUB,NTIP ,NIN,NCUT,NBLPL»NPPP,NOST AT,NSL*LSFR, 

2 LTPLtLAMVT, IMESH,ISLINE, ISTATL,! PLOT,I SUPER ,! TSON,IDEBUG ♦ 

3 70MIN,70MBltZC«eO,Z0M0UT, ZHIN, ZT IN, ZHOUT, ZTOUT,ZHUB( 501, 

4 RHUBf 50» ,ZTIPI50I ,RTIPf50» , SFIN (501 , RAOIN 150 J ,TIPf50 J ,PRIPI50J, 

5 LAMINf 50J,VTHIN<50I,SF0UT(5CJ,RAD0UTI50),PRCP(50» ,L0S0UTI50I , 

6 LAMOUTISOI ,VTHCUT(50>, ZHST I501,ZTSTI50 I, FLFRI50J, 

7 ZBLI 50, 5C),R6H50,50J ,TMBL( 50,501 ,TN8U 50 ,501 
ccmmon/calccn/mmmi,mhtpi,cp,expon,tgrog,pitch,curvhi ,CURVTI , 

1 curvho,curvto,pwin,rtin,bhcut,rtout,rleh,rlet,rtem,rtet, 

2 7LEI50»,RLE(5CI,ZTEI 50),RTE(50I ,ZLEO«C 1011 ,RLECMf 101 » , 

3 SLECMa01l,THLE0Mfl0n,7TE0M« 10ll,RTEOM| 1011, STEOMf lOlJ , 

4 THTEOMI lOl) ,ILE(101I ,ITE(1011,7CM(100,10U,P0MU00, lOlJ, 

5 SOMf 100, lOUfTOMf 100,1011 ,BTH« 100,1011 ,OTHOSI 100,1011 , 

6 OTHnTC100,101l,PLOSS a00,10n,CPHIf 100, 101»,SPHIf 100, 1011 
DIMENSION SLOPE 1501 ,EMI 501 , RHCIP 1501 
K = 2 

IFfABSISF-SFINdl KGT.TCLERl GC TO 10 
RHOIPF = RHOtPl 11 
RETURN 

10 IFlSF-SFINdl I 20,20,30 
2C RHOIPF = RHOIPI llTiSF-SFINd) l*SLOPEfll 
RETURN 

30 IF(APS1SF-SF1MK11.GT.TCLERI GC TO 40 
RHOIPF = RHOIPIK) 

RETURN 

40 IF(SP-SFIN(K1 J 70,70,50 
50 K=K+1 

IF(k-NIN) 30,30,60 

60 RHOIPF * RHCIP1NIM + <SF-SFINCMN1)*SLCPE(NIN1 
return 

70 SK = SFINIK 1-SFINfK-l 1 

RHOIPF = EM<Y-ll«(SFlN(Kl-SF1**3/6./SK4^EMIKl*(SF-'SFIN<K<-in**37 
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1 6./SK4.(RH01P (K)^SK-eM<K)*St</6.)*<SF-SFINIK-in + tPH0IPfK-ll/ 

2 SK-£m(K- 1 )*SK/5.)*fSFINIK )-SF) 

RETURN 

ENTRY RHIN IT»NNN I 
or RO J=l ,NIN 

PO RHOIPfJ) = PRIP (J) /AR/TIP( Jl 

C^tL SPLINEfSFIN,RHOIP,NIN,SLOPEtE«l 

TOLER * AeS(SFIN(MN)-SFINa } }/FLnATtMN)«l.E-6 

RETURN 

ENO 


FUNCTION LAWOAFf SF,I ,J) 

— L^POAF CALCULATES PREWHIRL t LAPBCA* AS A FUNCTION OF STREAM 
—FUNCTION UPSTREAM OF THE BLADE 

COMMON SRW^SRE^ ITER, IEND,NREAD, NWRIT 

CCMMON/INPUTT/GAM, AR,MSFL»OMEGA,REOFAC.VELTOL.FNEW,ON6W,Mei,MBOt 

1 MM,NHT»NBL»NHU6,NTIPfNINtNCUT,NBLPL»NPPP,N0ST AT»NSLfLSFR» 

2 LTPLtLAMVT,IMESH,ISLINE*ISTATL»lPLOT,I SUPERflTSON.IOEBUG, 

3 ZO»IN,ZOMBI,20MeO,ZOMOUT,ZHIN,;TIN»ZHOUT,7TOUT,ZHUBf50)» 

4 RHUBfSO) ,ZTIP<50) ♦RTIPISO) *SFIN (50) t RAOIN(SO) «T IPf50 )fPR IPf SO)* 

5 LAMIN(50),VTHIN(50)» SFOUT(50),RACKJUT(50I*PROP(50) «LOS0UT(50l * 

6 LAM0UT(50) ♦VTHCUT(50)*ZHSTf50)tZTST(50),FLFR(50), 

7 ZBL(50*50) ,RBL(50*50) ♦TH8L(50,50),TNBL(50,50) 
CCMMON/CALCON/MMM1»MHTPI,CP*EXPON*TGR06*PITCH*CURVH1*CURVTI * 

1 CURVHO*CURVTO,RHIN*RTIN» RHCUT*RTOUT,RLEH»RLET*RTEH*RTETt 

2 7LE(50),RLE(5C),7TE(5a),RTE(50ltZL£0P(l0l)*RLECM(101), 

3 SLE0M(10n*THLEaM(101),ZTEOH( lODtRTEOMf 101)* STEOM(lOl) * 

4 THTE0M(10n*ILE(l01) *ITE(lOl) *ZCM( 100, lOl )* ROPdOO* 101 ), 

5 SOM(10O*l01l*TOM(100*l01)*BTHClC0*101)*0THDS(lC0,101), 

6 OTHOT(100*101 )*PLOSS ( 100*101)*CPHI (100* 101)*SPHl( 100,101) 
C0MM0NZVARC0M/A(4,100*l0l) * UOM(100*101) ,K(100, 101 ) *RHO( 100, 101) * 

1 WSUBS( 100,101)*WSUBT( 100* 101) , WSUBK 100*101) *VSUBR(100*10l) , 

2 WSUBM(100,101)*MTH(100,101 >,VTN(100* 101),H(100,101)* 

3 ALPHA( 100*101) ♦8ETA(lCO*10n*WWCR(100*101),CURV(lOO*l01), 

4 WLSURFI 100* 10U,HTSURF( 100* 10l),CAMP( 100*101) *SAMP( 100*101) * 

5 RHOAV(100,101),DELRHC(100*101),FR(100,101)*OFDM(100* 101), 

6 XinM( 100* 101) *ZET0M( 100*101) *OLOU(100*101) 

DIMENSION SLOPE(50)* EM(50)*AAA(50)*RIL0M( 10l),UIL0M(101) 

REAL LAM0AF*LAMIN*LAMGUT 

KK = 2 

IF(ABS(SF-SFIN(1)).GT.T0LER ) (?0 TO 10 
LAPDAF = LAMIN(l) 

IF U.LT.ILEfJ)) OLDU( I*J) = SLCPE( 1) 

RETURN 

10 IF?S*=-SFINm ) 20*20,30 

20 LAMDAF = LAMINI l)4^( SF’SFtNI 1))«$L0PE(1) 

IF ( r.LT.ILEU) ) CLDU( I*J)=SL0PE(1) 

RETURN 

30 IF(AES(Sf-SFIN(KK)).GT. TOLER) GO TO 40 
LAMDAF = LAMINIKK ) 

!F n.LT.ILEUn OLCU(I,J)*SLCPE(KK| 
return, 

40 if(sf-sfin(kk n 70 * 70*50 

50 KK=KK+l 
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IFCKK-NINJ 30»30«60 

60 Lft)>'D&F = LAKIN<NIM«-<SF-SFIN(MN 11 <-SLaPE(NrNJ 
IF ?l«LT.!LE(JH OLOUH t Jl *SICPE < Nf N1 
PETIJRN 

70 SK = SFINfKKI-SFIKCKK-l » 

LAmDAF » 6 W«KK-I>»f SFINfKK)-SF)**3/6./SK+FM(KKS*«SF-SFlN?KK=Ut**3 

1 / 6 ./SK-»-fLAi^IN<KKl/SK-EM(KK 1*SK/6,J’>< SF- SF IN f KK- H »♦ « L AWI Nf KK-ll 

2 /S«-EWf KK-U*SK/ 6 o l#>fSFIN!FK1-SF» 

IF t I.LT.ILEI J)» OLOUU.Jl* -EF( KK- !!♦ ( SF I N( KK)- SF)**2/2 ./SK + 

1 EPlKKJ^fSFlNIKK-l )-S F { *#2/ 2./SK + IL AM IN IKK 1 -L AM INI KK- I H / SK- 

2 f'EM|KK}-EMIKK-in*SK/ 6 . 

RETURN 

EMRV LAMNITINNNJ 
EF 4iTER.EQ.0i GO TO 100 

n = MBi 
JJ = 1 

00 80 KKsl^MHTPl 
OIST = aOATiKK-ll/FtOATI MHTI 
RKOMIKKI = RH1N+DIST*IRTIN-RHIN1 
7ILflM = 7HIN*D1 ST*42TIN-ZHINl 

80 CAtL L ININTI ZOM,ROM,UQMtMM»MHTPl*100, 10l57ILaM,RILaM|KK8 ♦ 
1UIL0M4KK) ♦n.JJI 

IF 4LSFR.E0.0) CALL SPLINTIUILCM,RILCF,KHTP1 tSFlK,NIN,RAOIN»AAAI 
IF 4LSFR.E0.il CALL SPL INT(RILOM» UILOM^MHTP 1 eRAO IN 9 NI N, SFI N »AAAJ 
IF 4LSFR.EQ.1) GC TO 100 
00 90 KK*1,NIN 

90 LAMINIKKI® RACIN IKK | ♦VTHINIKK I 
ICC CALL SPLIN£CSFIN,LAMIN,MN,SLCPE»EM) 

TOLER = ABSISFINININI-SFINf in/FL 0 ATININ)«>l.E -6 

RETURN 

END 


FUNCTION RHOOPF4SFI 

— PHOOPF CALCULATES DOWNSTREAM ABSCiLUTE TOTAL DENSITY 
—AS A FUNCTION OF STREAM FUNCTION 

CCMMON/lNPUTT/GAM,AR,WSFL»OMEGA»RECFAC»VELTCL»FNEVIt DNEH»MBI«MBO» 

1 MM,MHT,NBLfNHU8»NTlP »NIN t NOUT,NBLPL»NPPP» NOSTAT ,NSL »LSFR , 

2 LTPLrLAMVT, IMESH, ISL INE, 1ST ATL ♦ 1PL0T» 1 SUPER r I TSONtl DEBUG . 

3 7OMINt7OM0It7OM0O,7OMOUT»ZHINtZTIK»7HGUT, ZTCUTt ZHU6I50I» 

A RHUB4 50)tZTIPI 50 1 fR TIPI 50) ,SFI Nl 50) » RAOI Nl 50 tTIPlSO) ,PRIPI50), 

5 LAHINI50).VTH1NI50)»SFDUT 150), RACOUT 150 ), PROP 1 50 »,LOSOUTI 50), 

6 LAMOUTI 50) ,VTHCUTI50) ,ZHSTI50) ,?TSTI50», FLFPI50 ), 

7 7BLI5O,5O),RBLI5O,5O),THBLI5O,5O),7N0LI 50,50 
COMMON/CALCCN/MMM1,MHTP1.CP,EXPON,TGROG,P ITCH, CURVHI, CUR VTI, 

1 CURVHO,CURVTO,RHIN,RTIN,RHOUT,RTOUT,RLEH,RLET,RTEH,RTET, 

2 ZLE4 50 »,RLEI50),7TEI50),RTEI 50),ZLE0MI 101) ,RLEOM| ICU , 

3 SLEOMl 101) ,THLEGMUOl ),ZTECM 1101), RTEOMI 1011, STEOMUOl), 

A THTEOMI 101), ILEI lot), ITEI 1C1),Z0HI 100, lOl) , ROM! 1(10,1 01) , 

5 SOM I 100 ,101) ,TCMI 100,101 ), 8THI100, 101) tOTHOSI 100, 101), 

6 DTHDTI ICO, lOl) , PLOSSI 100,101 ) ,CPHII 1 00 ,101 ) ,SFHlllOO , 101 ) 

OIPENS ION SL0PEI50), EM| 50),RH00PI 50) 

K = 2 

IFJABSI SF-SFOUTI 1)).GT. TOLER) GO TO 10 
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RMCnPP » RHCftPf l ) 

RETURN 

10 r P(SF-SFOUT« 1 ) ) 20,20»3C 
20 RHOflPF = PHCnPm + (SF-SFOUT<lHPSLOPE( 11 
RETURN 

20 !F<AflS(SF-SFOUT(K JKGT.TGLERl GO TO AO 
RFrOPF = RHCCPfKl 
RETURN 

AO IFfSF-SFOUTfK 1) 7C,70t50 
50 K=K+1 

IFfK-NOUT) 30,3C»60 

60 RUnOPF a RHOnP(NOUTI+f SF-SFOUTfNOUTn*SLOPE<NOUTl 
RETURN 

70 SK = SFOUTf K}-SF0UT<K-1) 

R FOOPF a EM(K“l }♦ (SFOUTlK 1-SF }**3/6*/SK+EM( K 1 «( SF- SFOUTf K-11 IP^B 

1 /5. /SK> f RHOtlPf K l/S K-EM(K l*SK/6» MISF-S FOUT ( K- II !♦< RH00P (K-11 / 

2 SK-EM(K-11*SK/6,|*( SFOUT(K|-SF| 

H uT u R N 

EFTRY RHONITfNNM 
00 80 Jal^NOUT 

80 RHCOPCJl = PROP(J)/AR/TOPF(SFOUT( JM 
CALL SPLINEf SFOUTfRHOCPf NOUT,SLCPE»EP| 

TOLER = A8S(SFOUT<NOUTI-SFOUT(lll/FLOATfNOUT|Pl.E-6 

RETURN 

END 


FUNCTION RVTHTAfSF, I,J| 

— RVTHTA CALCULATES R ♦ V-THETA AS A FUNCTION OF STREAP FUNCTION 
— rCMNSTREAN OF THE BLADE 

COMMON SRW^SRE, ITER^ IEND^NREAD,NWRIT 

CCMMON/INPUTT/GAN,AR,MSFL»OMeGA,RECFAC,VELTOL,FNEH,ONEW,«BI.MBO, 

1 MNf MHTtNBL»NHUB,NTIP,NIN,NOUT»NBLPLfNPPP»N0STAT*NSLfLSFRt 

2 LTPLtLAPVTtIPESH»ISLINE» ISTATLt IPLOT* ISUPER. ITSONt IDEBUGt 

3 ZOMINfZOHBl ,ZOMBOtZOMOUTf ?HIN»ZTIN,7HOUT,7TCUTf ZHUBfSOI, 

4 RHUB(50I» ZTIP(50lfRTIP(501,SFIN(50l,RAOIN150),TIP(50) tPRIPfSOI 

5 LAMINfSOl tVTHINI50) »SFCUT!501»RACOUT(5O),PRCPf50),LOSOUT<501, 

6 LAMOUTf 50J,VTH0UT< 50I,ZMST<50I ,ZTST( 50) ,FLFRf 50) , 

7 Z0L(5O,5OI,RBLf5O»5O),THBLC5O*5O)tTNBLf 50t 50 

common /CALC ON/MMMI »MHTPI »CP f EXPCN»TGPGGf PITCHt CURVHIt CURVT I* 

1 CURVH3,CURVT0»RHIN,RTIN,RH0UT,RT0UT»RLEH,RLET*RTEH,RTET, 

2 7LE150),RLEf50),ZTE(50)*RTEf50), ZLEOM(101KRLEOM(101)» 

3 SLEOM! 101) tTHLEOMf 101) tZTECPflOl ) tRTEOMdOl ) « STEGMf 10 1 ) « 

A THTE0M(lon,ILE(101)» ITEl 1 CI),Z 0 M( 100* 101 ) ,ROMf 100,101) , 

5 SOM< 100,101) ,T0M<100,101) ,BTHfl 00, lOl),OTHCSf 100,101), 

6 DTHOTf 100,l01),PLOSSf 100, 101) ,CPHI( 100,101) , SPHHIOO, 101 ) 
CGMMDN/VARCGM/A(A,lOO,101l,UOMaOO,lOl),K(100, l01),RH0f 100,1011, 

1 wsuBSf 100 , 101 ) ,Hsu8Tiioo,ioi) ,wsuez<ioo,ion,vsuBRaoo,ioi), 

2 WSUBMf 100, 101),HTHI 100, 101 ),VTH< 100, 101) ,WC ICC, 101) , 

3 ALPHA f 100,101 ) , BETA (100,101 ), NWCRdOO, 101 ),CUPV( lOO, 101) , 

A WLSURFI 100, 101) ,WTSURF(100,101) ,CAMP(100 ,101) ,SAMP(100,101 ), 

5 RH0AV(100,l01),CS-RH0f 100,101),FR(100,101),DFDM( 100,101) , 

6 XIOMriO0,l01),7ETOM(loO,lOl),0LDUnO0,lOl) 

D TMENS ION SLOPE( 5C),EM( 50), AAA (50) ,ROLOM( 1011 ,liCLCP (101 ) 

REAL LAM1N,LAM0UT 
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KK * 2 

tf lABSCSF-SFOUTt in.GT*TOLERI GO TO 10 
RVTHTA * LAMOUTfl) 

IE U.GT,ITE(4n OLOU<!fJl*SLCFEm 
RETURN 

10 IFISF-SFOUT an 20*20t30 

20 RVTHTA = LAHOUTd l♦(SF-SFOUTan♦SUDPE( 1) 

IF U.GT.ITEUn OLOUU ♦41*SL0PEMS 
RETURN 

30 IFIABSI SF-SFOUHKKn.GT.TOLERJ GO TO 40 
RVTHTA * LAHOUTfKKI 

IF (l.GT.lTEf J)l DLOUn*JJ»SLOPE!KK) 

RETURN 

40 IFfSF-SFOUTIKK II 70*70,50 
50 KK=KK+1 

IFIKK-NOUTI 30f30*60 

60 RVTHTA * L AHOUTI NOUT I+t SF-SFOUTCNOUTI I* SLOPE! NOUTl 
IF n.GT.ITE(J)l OLDUn*Jl=SLCFE<NOOT) 

RETURN 

70 SK s sfoutikki-sfoutikr-ii 

RVTHTA » ERIKK-ll*<SF0UTCKKl-SFI**3/6./SK*EM<KK|4f SF-SFOUTC KK-H I 

1 ♦•3/6, /SK+fLAMOUT!KKl /SK-EFf KKI4SK/6,I ♦! SF-SFOUT f KK-l 11+ 

2 (LAM0UT!RR-lI/SK-EMKK-mSK/6,|^< SFOUT! KKI-SFI 

IF n.GT.ITECJn OLOU<nJI« -EH(KK-m(SFm!T<KKj-SF|4*2/2./SK + 

1 EH< KKI •( SF0UT(KK-ll-SF|6^2 /2, /SK+ILAMOUT ( KK 1-lAFOUT I KK-1 1 1 

2 /SK-IEMIKK )-EM(KK-ll I*SK/6, 

RETURN 

ENTRY RVTNITINNN) 

IFUTER.EO.Ol GO TO 100 
II a FRO 
JJ = I 

OO BO KK*l,FHTPl 

DIST * FLOATfKK-l>/FLOAT!FHT I 

ROLOMIKKI a RH0UT»DIST^(RT0UT-RH0UT) 

ZOLOM * ZHOUT+DISTAIZTOUT-ZHOUT) 

80 CALL LINI NT(ZOF,ROF,UOFtHFf MHTPltlOO, lOlt Z0L0«*RCL0FfKK )»U0L0M«KKJ 
1* lit JJI 

IF (LSFR.EO.Ol CALL SPL INT(UOLOM»ROiOM,MHTPltSFOUT,NCUTtRAOOUT, 
lAAA) 

IF fLSFR.EO.lI CALL SPLINT! R0LCF,U0LCF,WTP1 ,RADCUT»NOUT ,SFCUT, 

lAAA) 

IF !LSFR. EC.ll GC TC 100 
00 90 KK=1*N0UT 

90 LAFOUT!KKI= RAOGUTfKKJFVTHOUTIKK I 
ICO CALL SPLINE !SFOUT,LAFOUT,NOUTtSLOPEtEF) 

TOLER = A6S!SFOUT!N0UT l-SFQUT! lll/FLOAT!NOUTI41,E-6 

RETURN 

END 


SUBROUTINE CONT IN !XEST» YCALCt INOt JZ tVGl VtXOEL) 

— CDNTIN CALCULATES AN ESTIMATE OF THE RELATIVE FLOW VELOCITY 
— FOR USE IN THE VELOCITY GRACIENT EQUATION 

DIMENSION X!3)tY!3l 
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NCALL » NC4LL*l 

IF (INO.NE.l.AND.KCAU.GT.lOOl CO TO 160 
Cn TO ( 10, 30* AOt50,60,llC,15C) fINO 
C--FIRST CALL 
10 NCALL * I 
XORIC = xesT 

IF (YCALC.CT.YGIV.AND.JZ.EQ.ll GO TO 20 
INO = 2 
YIU * VCALC 

X ei) = 0. 

xeST = XEST+XOEL 
FETURN 
20 INO = 3 

YI3) = YCALC 
X(3) = 0. 

XEST = XEST-XDEL 
RETURN 

C— SECONC CALL 
30 IND = A 

Yf2) * YCALC 
X(2» * XEST-XORIG 
XEST » XEST+XDEL 
RETURN 
40 INP = 5 

V(2) « VCALC ' 

XI 2J = XEST-XORIG 
XEST » XEST-XOEL 
RETURN 

C— THIRD OR LATER CALL - FIND SUBSONIC OR SUPERSONIC SCLUTICN 
50 YI3) * YCALC 

XI3) a XEST-XCRIG 
GO TO 70 
60 YCn a YCALC 

Xf 1) a XEST-XORIG 

70 IF (YGIV.LT.AMINKYI 1I,Y<2>,V(3III GO TO (120, 1301, J? 

BO INO a 6 ' ' 

CALL PABC (X,V,APA,BFB,CPCl 
DISCR a BPB»*2-4,*APA*CCPC-YG1VT 
IF (DISCR.lt. 0.1 GO TO 140 

IF (ABS(400,*APA*(CPC-YGIVII.LE.6PB**2I 60 TC 90 ’ 

XEST a -BPB-S IGN(SQRT(DISCR ),APA) 

IF U7,ECI.l.ANO.APA.6T.O..ANC.Y(3).GT.Y(in XEST * -BPB+ 
ISORT(DISCR) 

IF (JZ. E0.2.ANO.APA.LT.O.J XEST * -8PB-SORT(OI SCR) 

XEST = XEST/2./APA 
GO TO lOO 

90 IF (JZ. E0.2.AN0.BPB.GT.0.I GO TO 130 
ACB2 = APA/PPB*(CPC-YGI V) /BPS 
IF ( ABS(ACP2).LE.l.E-8} AC8 2=0. 

XEST a -f CPC-YGIV)/6PB*(1.+ACB2+2.*ACB2**2I 
ICC IF ( XEST.GT.XOn GO TO 130 
IF (XEST.LT.XI in GO TO 120 
XEST = XEST+XORIG 
RETURN 

C — FOURTH OR LATER CALL - NOT CHOKED 
no IF(XEST-X0RIG.GT.X(3n GC TC 130 
IF( XEST-XORIG.lt. X( in GO TC 120 
Y(2) a YCALC 
X(2> = XEST-XCRIG 
GO TO 70 



o 


C--TMRC fifi LATER CALL - SOLUTION EXISTS. 
C_-PUT RTRHT OR LEFT SHIFT RECUIRED 
12C INO = 5 

c — ieft shift 

XEST * Xin-XOEL+XCBir, 
xnSHFT = XEST-XORIG 
XCRIO = XEST 
YI3J * Tf2t 
XI3I = XI2)-X0SHFT 
YI2I * YIU 
Xe2> » XIll-XOSHFT 
RETURN 
130 no * ^ 
c — right shift 

XE^T = XI 3I*XOEL*XORIG 

XCSHFT = XEST-XORIG 

XORIG * XEST 

vm « YI2I 

Xfl) * XI2I-X0SHFT 

V< 2) * Yf 31 

XI2I * XI31-X0SHFT 

RETURN 

C — THIRO OR CATER CALL - APPEARS TC BE CHCKED 
lAO XEST * -BPB/2./APA 
INO * 7 

IF I XEST.LT.XI in GO TO 120 
lFlXEST.GT.Xl3n CO TO 130 
XEST * XEST+X0P16 
RETURN 

C— FCUR7H OR LATER CALL - PROfiAa.V CH3K60 
15C IF I YCALC.GE.YGIV) GO TC 110 
INC = 10 
RETURN 

C— NO SOLUTION FOUND IN 100 ITERATIONS 
160 INC * 11 
RETURN 
END 


SUPROJTINE PABCIX.Y.A.B.C) 

— PABC CALCULATES COEFFICIENTS A.B.C OF THE PARABCLA 
— Y*A*X**2+B*X+C. PASSING THROUGH THE GIVEN X.Y POINTS 

DIMENSION Xf3).Y(3l 
Cl = XI3»-X(1 ) 

C2 * iY<2)-Yan/(xi2i-x(in 

A = (C 1+C2-YI 3) + Y( 111 /C l/< XI 2)-Xl3n 

e C2-(X(mx(2IIAA 

c * vm-xm*B-x(i)**2*A 

RETURN 

ENC 
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SUBROUTINE I NR SCT( XCURVl tVCURVl ,M tXCUBVZ , YCURV2 »N2» XCROSS* YCftOSS ) 

— INRSCT CALCULATES THE COORDINATES I XCROSS, YCROSSI Of THE POINT 
— OF INTERSECTION OF TWO SPLINE CURVES* YCURVl =F(XCURV1 » AND 
— XCURV2=G(YCURV2I* LYING ON A PLANE 

CCWMPN srh,spe*iter*ienc*nread,kwrit 

DIMENSION XCURVllNll*VClWVlCNn,XCURV2(N21 *YCUBV2U2> 

NCCUNT = 0 

TOLER = f A8SI XCURVICND-XCURVI ID I + AES IYCURV2 (N2 I-YCURV2I1) It/l.ES 
XTEMP * XCURVll n 
YTEHP » YCURVim 

XCROSS * (XCURVlf lltXCURVKNlI }/2. 

—COMPUTE INTERSECTION POINT AND SLOPE ON CURVE 1 
1C XI « XCROSS 

CALL SPLI NT( XCURVl *YCURVI*N1 ,X1 ,1 ,Y1 *S1 I 
—COMPUTE INTERSECTION POINT ANO SLOPE ON CURVE 2 
Y2 * VI 

CALL SPL1NT(VCURV2,XCURV2*N2*Y2*1«X2,S2I 
—COMPUTE COORDINATES OF POINT WHERE TWO SLOPES INTERSECT 
SI $2 * Sl*S2 

XCROSS = X2*SIS2*IX2-X11 /f 1.-S1S2I 
YCROSS * Yl+Sl *f X2-X1I/I 1.-SIS2) 

—COMPUTE DISTANCE AWAY FROM PREVIOUS SLOPE INTERSECTION POINT 
OIST » SORTH YCR0SS-YTEMP)**2+IXCRCSS-XTEMP)*T2I 
IF IDIST.lt .TOLER) RETURN 
NCOUNT » NCOUNT+l 
IF CNCOUNT-GT.201 GO TO 20 
XTEMP * XCROSS 
YTEMP . YCROSS 
GO TO 10 

20 MRITEINWRIT*1000) TOLER*OIST 
RETURN 

1000 FORMAT (6X, A6HINRSCT HAS FAILED TO CONVERGE IN 2C ITERATIONS/ 

UOX.UHTOLERANCE «*G14.6/10X*47HDISTANCE BETWEEN LAST TWO INTERSEC 
2T10N POINTS **G 14.fi) 

END 


SUBROUTINE ROOT I A ,e,Y, FUNCT*TGLERY* X, CFX ) 

-ROOT finds a root FOR IFUNCT MINUS Y) IN THE INTERVAL (A*8) 

COMMON SRW*SRE*ITER.IEND*NREAC*NWR1T 
INTEGER SRW,SRE 
ISRWa 0 

10 IF ISRW.E0.21) MRITECNWPIT*1010) A,BfY*TDLERY 
XI * A 

CALL FUNCTIXl ,FX1 ,CFX) 

IFI SRW.E0.21) WR1TEINWRIT,1020) X1,FX1,DFX 
X2 = R 

20 DO 40 I»l,20 
X = I XI+X2) /2. 

CALL FUNCTIX, FXfDFX) 

IFISRW.E0.2l) WRITEINWRIT*1020) X,FX,CFX 
IFHFX1-Y)*CFX-Y).GT. 0. ) GO TC 30 
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X2 = X 

<;c to 40 

30 XI = X 
FXl s FX 
«C CONTINUE 

IFIABSIY-FXULT.TGLERVI RETURN 
IF ( ISRW.EO.ir CO TO 50 
WRI TEINWRIT ♦10001 
ISRM= I 
JSRW= SW 
SRW= 21 
GO TO 10 
50 SRW= JSRW 

ICCO fSmATITZHIROOT has failed to locate a root in the INTERVAL <A,B» 
IIN 20 ITERATIONS! 

ICIO FORMAT 1 22H ROOT ARGUMENTS — A «♦ G13 .5f 3X ♦ 3HB *♦ C13-5t 3Xt 3HV »♦ 
lG13.5,3Xt8HT0LERY *»G 13. 5/16X,lHX,l7X,2HFX .ISX ,3HDFX) 

1020 FORMAT (8X»G16.5*2G18. 5) 

END 


SUBROUT INE LININT CXtYt ZfNXrNV*NOIMXtNOIMYt XO«VCfZO*I *JI 


C 

C— LININT LOCATES THE POINT IXOtYO) IN A 2-C 
C—CCORCINATES STOREO IN THE X AND Y ARRAYS. 
C— fXOtYOl IS INTERPOLATED FRCP THE I ARRAY 
C — TO THE X AND Y ARRAYS 


MESH WITH 

THEN THE VALUE OF 20 AT 
VALUES CORRESPONDING 


DIMENSION X(NOIMXfNOIMY|,VINCIMX»NOIMVltZ(NDIMXfNCIMYl 
DIMENSION EXTRAPI2I 

C«-FINO^in^SUCH^THAT*iXO,YO» IS IN COLUMN I FROM THE LEFT ANO IN ROW J 

C— FROM THE BOTTOM 

1FINX.LT.2.0B.NV.LT.2! STOP 
TFII.LE.OI I • I 
IFn-GEJ4Xl I * NX-1 
IFU.LE.OI J * 1 
IFIJ.GE.NY! J » NY-l 


10 ABOVE = -I 
R TGHT ^ 

iFiYO.GE.vn,jj*«xo-xa.J)i 2 <x(i»i.j)-xn.jn*(Yn*i»Ji-Yn,J!ii 
1 ABCVE * ABOVE+1 

I FI YO.GT.YCI»J+l)+IXO-XIIf J*1 >1/ IX Il + lt J+ll-XI It J+l!)* 

1 I VI I+1,J+1)-YU tJH! n ABOVE • ABOVE+l 
IFIX0.GE.XII»JI + IY0-YII*JII/IYI I, J*l )-YI I ♦ J ) !♦! XI I ♦ J+ D-XI I ♦ JI 1 1 
1 RIGHT a R1GHT*1 

IFIXO.GT.XI I*l»J J+I YO-YI H-l»J)l/fYlI + l*J*^l!-YII*lfJll* 

1 Ixn+l,J+l)-XIl*ltJn) RIGHT = RIGHT+l 
IN a I+RIGHT 
JN * Ji-ABOVE 

IFIIN.LT.l.OR.IN.GE.NX) RIGHT = 0 

iFf jn.lt.i.or.jn.ge.ny) above a 0 

IFI AB0VE**2*R IGHTFP2.E0.0) GO TO 20 
! a T-tRiGHT 
J a J*ABOVE 
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GO TO 10 
20 IJFX = 1 

C— SET EXTRAP TO INDICATE EXTRAPCLATICN 
EXTRAP(l) = 0. 

EXTRAPI2I * 0. 

IFflN.LT. U EXTRAPI2I = -1. 

IEnN.GE.NX> EXTRAP( 2 I « 1. 

IFfJN.LT.l) EXTRAPdl = -1, 

IFfJN.GE.NY) EXTRAPflt « 1. 

C— CALCULATE CONSTANTS TO CALCULATE FY 
Y13 = YfI,JI-Y(I»J+l> 

X13 = Xf ItJl-XU 

YA? « Yn>l,J«l)>Y(I>l»J> 

XA2 * X(M^ltJM>>X(Ul*JI 
YOl » VO-Yf I*J) 

XOl = XO-X(IfJ) 

Y02 » VO-YII + lfJ) 

X 02 = xo*xn«i*j) 

Y2l * YnAl*JI>Y(I»J) 

X2I * Xll + lf J)>XtI*J) 

C—CALCULATE COEFFICIENTS OF QUADRATIC EQUATION FOR FRACTIONAL DISTANCE 
C— IN QUADRILATERAL 

30 OA * Y13*XA2-X13AY42 

OF * X13*Y02-Y13PX02+YOI*X42-X01*YA2 
QC » Y01*X21-X01AY2l 
DISCR - 0B**2-A.*0A*0C 
IFIOISCR.LT.O.) GC TO 110 

C— CHECK TO SEE IF QUADRATIC EQUATION IS CtCSE TO LINEAR . 

Iff ABSf A.TOA.«QC1.LE.QB**2n01> GO TO 80 
FA * -QB/2./0A- ■■ 

F6 « S0RT(DISCRl/2./0A 

FI * FA+FB 

F2 ■ FA-FB ■ • • 

C— CHECK TO OETERHINE WHETHER FI OR F2 IS THE PROPER SCLUTION 
CASE - -1. 

TFIEXTRAPIIJEXH 40, 50,60 

C — EXTRAPOLATION BELOW OR TO LEFT IFF LESS THAN 0.1 
40 IFfFl.LT..on CASE » CASE«^l. 
lFfF2.LT.. Oil CASE » CASE«2. 

IFfCASE.LT.1.5) GO TO 70 
CASE « CASE-1. 

IFfF2.LT.Fl) CASE > CASE-1. 

GO TO 70 

C—KC EXTRAPOLATION 

50 lFfABSfFl-.5I.LT..5ll CASE - CASE^l. 

IF(ABSfF2-.5).LT..5U CASE - CASE+2. , 

GO TO 70 . > . 

C— EXTRAPOLATION ABOVE CR TO RIGHT IFF GREATER THAN 1.) 

60 IFfFl.GT.,991 CASE* CASE+1. 

IFfF2.6T..99> CASE » CASE«^2. 
lFfCASE.LT.1.5) GO TO 70 
CASE * CASE-1. 

IFfFl.LT.F2l CASE » CASE-1. 

70 IFf ABSfCASE-. 5) .GT..6) GO TO 110 
FF * tl.-CASE)*Fl«CASE*F2 

GO TO 90 , 

C— IF QUADRATIC EQUATION IS NEAR LINEAR, USE BINCPIAL EXPANSION FOR FF 
BO ACB2 * 0A/0B4QC/0B 

IFf ABSf ACB2I.LT.1.E-8I ACB2 *0. 
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FF = -OC/0B*f ia*ACB2-«-2.^ACB2*<'2l 
IF<IJEX.H0.2» GO TO 100 
IJEX = IJEX*1 
FY * FF 

C — INTERCHANGE CORNER FEINTS TO GET FX 
V13 = Y(I,J1-Y<I+1,J» 

X13 = X(If ji-xn*i»ji 
Y42 = YII+l fJ+U-Y IltJ+ll 
X42 * Xll*l*J*l»-X<If J+H 
V02 = Y0=YII»J-Hl 

X02 * xo-xn.J+i» 

Y21 = Y( ItJ+ll-V< ItJ) 

X21 * XCI ,j+ii-xnf Jl 

ftO TO 30 

C— CALCULATE INTEPPOLATEC VALUE 
ICO F )( - FF 

70 = ZUt l.-FXl#(l--FY» + ZCI+l*J»*FX*a.-FYI*7f I,J+ll*a.-FXI 

1 ♦FY+7II+1* J+1»*FX*FY 

RETURN 

c— print error message if there ISA PROBLEM IN OBTAINING A SOLUTION 


110 70 = 0. 

WRITEf6»l000) tfJ 
RETURN 

1000 FORM AT 138 MIL IN INT CANNOT FIND 
1161 
END 


interpolated VALUE/4H I s»I6f4H 


J *» 


SUBROUTINE SPLINE IXf Y, N* SLOP £♦ EMI 

— <PLINE CALCULATES FIRST ANO SECONC DERIVATIVES AT SPLINE POINTS 
— END CONDITION - SECOND DERIVATIVES AT E ITHER END POINT IS 
—ONE HALF THAT AT THE ADJACENT POINT 

COMMON SRWfSRE* ITER* lENO»NREAOfNWRIT 
. DIMENSION X(Nl *Y INI ,£Mf N1 1 SLCPElN 1 
DIMENSION Gl 101} »SBC 1011 
INTEGER SRW,$R£ 

SBIll s -0,5 
GUI = 0, 

NC*N-l 

IF IN0.LT.21 S8UI*0, 

IFINO.lt. 21 GO TO 20 
DC 10 I*2fNC 
A = ixm^xn-iii/6. 

C = fX(I+ll-X(Ill/6. 

H * a.A'IA+CI-AA'SBf I-ll 
SBdl = C/« 

F = ivi i*ii-Ymi/ixci»ii-xf in-iYiii-Yii-iii/fxm-xfi-iii 
10 G(ll <F-A*GI1-11 1/W 
20 EMINI = G<N-l)/(2.+SBIN-lll 
DO 30 I*2»N 
K = N*l-l 

30 EMIKI = G| KI-SBf KI*EM|K+1I 

StOPEm * (XI ll-XI 2ll/6.«( 2. ♦EM III ♦EMI 21 l+l Y( 2|-Y(Ul /( X(21-X(lll 
DC 40 l*2fN 

40 SLOPEIII » IX(II-XI1-11 )/6.*(2.*EM(I)*EMl I-l 1)*(Y(I1-YI 1-11 1/ 
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1 <xfn-x(i-in 

IFf SRVI.eO,l3) WRITE<NWR IT, 10001 Nf (XflltYf IltSLOPE( n»EM(1 1 »t>l »N1 
RETURN 

loco format 12X»15HN0. OF POINTS I 3/lOX* 1HX» 19X« IMY «1 <;x«5HSL0PE tl5X« 
l2HEM/f4G20.81) 

ENC 


SUBROUTINE SPLINT (XtY, N, 2,«AX*Y INT, CYOX I 
C 

C— SPLINT CALWLATES INTERPOLATED POINTS AND DERIVATIVES 
C — FOR A SPLINE CURVE 

C— END CONDITION - SECOND DERIVATIVE AT EITHER ENC PCIKT IS ON£«HALF 
C— THAT AT THE ADJACENT POINT 
C 

COMMON SRWtSREf ITER«IENO«NREAD«NWRIT 

OIMENS ION X(N)tYfN),ZfMAXl«YlNT<MAXl,DYDXlMAX) 

DIMENSION caoiNsefioii.EMuoii 

INTEGER SRWtSRE 

IFfMAX.LE.01 RETURN 

TOLERS ABS(XfN)>xmi/FL0AT(Nl*l.E-5 

Spin = -.5 

Gfll » 0. 

I 

IF(N0-LT.2> 60 TO 20 
DC 10 1=2, NO 
A » f Xf Il-Xf I-l) ) /6, 

C * (X( l4ll*Xf II1/6. 

M * 2.*IA+C)-A*SBfI-l) 

sBin = c/« 

F = fYf I^IHYI IllZfXf I^ll-xi ni'IYf Il'Ylt'll I /(Xni-XII-lll 
10 GUI » (F-A*G(I-1II/W 
20 EMfNl » GfN-ll/f 2. + SBIN->l)l 
DC 30 1=2 tN 
K S N+l-I 

30 EMfK) . Gf K)>SBf Kl«EMf K41) 

C 

ENTRY SPLENT IX tV »NtZ» MAX tV INT» CYOX I 
DO 120 I=1,MAX 

K«2 

IF lABSIZfll'Xmi.LT .TOLER) GO TO 40 
IF (Zf I1.GT.Xf 1)1 60 TO 50 
GO TO 80 
40 YINTUIsYlll 

SX » XfKI-XfK-1) 

GC TO llO 

50 IF f ABSfZm-XfKn.LT.TCLERl 6C TO 60 
IF I7f II.GT.XfKI) GO TO 70 
GO TO 100 
60 YINTfn=YfKl 

SK * XfK)-XfK-ll 
GC TP 110 
70 K*K+l 

IFfK-N) 50t50,90 

80 DYOXfl) *■ tXm-XI2n/6.*fZ.*EHm«EMf2))4tYt2HYfl))/f Xf 21-Xf in 
YINTfll = Y(ll+DYOXII|FfZ(ll-X(ll) 
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r,C TC 120 

sc DVDXm * (XCNI-XfN-l))/6,*fEHfN-n*2,*EH<M)*fY<N)-YCN-in/«XlN» 
l-X(N-l) I 

YTNTin = YfN) + CYEXm*(ZU»-XfN)l 
GC TO 120 

100 sx * X<K)-X<K-U 

YINTMI = EH(K-1)=MX(K|-7I in**3/6./SK 4EM(K )♦( Z( D-Xf K-in**3/6- 

1 /SK+(Y(K»/SK -Ef'fKI^SK /6 . 1 ♦ < Z f I> -X (K-1 1 ) ♦ lY <K-ll/SK -EMfK-ll 

2 *SK/ 6 .»*ex(K j-zf m 

no ovoxn »«-E)s»(K'l »>MX(Kt-Zfm**272*0/SK +EM<K !♦< XfK-ll-ZU ) )**2/2. 

1 /SK4fYIK)-Y(K-l)| /SK - C EKI K)-E« ( K-l I) *SK/6 • 

120 CCKTINUE 

MXA = MAXOfK*«AXI 

TFf SRV(«EQ* 161 WP.I TE (NWRl T* lOOC* N»W AX* ( X( 1 1 1 ¥< IS t Z t IJ f¥ INT ( I) ♦ 
IDYDXn lti*l»MXAI 
RETURN 

1000 FORMAT «2X*21HNO. OF POINTS GIVEN »*I3*30H« NO, CF INTERPOLATED PO 
II NTS ». 13/ lOX* IHX* lOX* IHY, 16X, IIHX- INTERPOL. * 9X* llHY-1 NTERPOL. « 

28 X* 14HDY0X-1NTERP01./I5E20.8 ) » 

END 


SUBROUTINE SLOPES IX #Y * N, SLOPE ) 

—SLOPES CALCULATES FIRST DERIVATIVES* SLOPE* OF THE FUNCTION* Y* 
—WITH RESPECT TO X* USING A PARABOLIC FIT THROUGH EACH SET OF 
— THREE ADJACENT POINTS ON THE CURVE 

DIMENSION X<NI,Y(M*SLOPE(N) 

N1 * N-1 
N2 * N-2 

IF IN1.LT.2) GO TC 20 
C — MID POINTS 

DO 10 I=2*N1 
X3X2 * XI I + ll-Xin 

X2X1 = x( I j-xn-n 

X3XI = XI I411-X<I-1> 

Y3Y2 * vn+ii-vm 
Y2YI = YU >-Yll-ll 

10 SLOPEUl = (X2X1**2*Y3Y2+X3X2AV2PY2Y1)/IX3X2*X2X1*X3X1) 

C— FIRST POINT 

X3X2 = XI 31-XI 2» 

X2X1 » XI2J-XIU 
X3X1 = XI3)-XIU 
Y3Y1 = YI3J-YCU 
Y2Y1 = Y(2)-Yll) 

SLOPEIl) * (X3X1*M2*Y2Y1-X2XI**2*Y3Y1)/IX3X2AX2X1MX3X1) 

C — LAST POINT 

X3X2 = XINI-XINII 
X2X1 * XIN11-XIN21 
X3XI * X(N)-XIN2» 

Y3Y2 -* Y( Nl-YJNII 
Y3Y1 » YIN1-YIN2) 

SLOPEIN) * CX3Xl**2*Y3Y2-X3X2**2*Y3Yl)/fX3X2AX2XlAX3Xll 
RETURN 
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C--TWO PniMT FIINCTIDN 

2C SLnPE(l) = (Y(2)-Y(l))/ CX{2|-Xim 
SLHPEf 2 ) * SLOPEU) 

RETURN 

ENP 


Lewis Research Center, 

National Aeronautics and Space Administration 
Cleveland, Ohio, August 20, 1973, 

501-24. 



APPENDIX A 


FINITE -DIFFERENCE FORM OF STREAM- FUNCTION EQUATION 


The stream -function equation was derived as equation (B18) of part I (ref. 6): 


) U ^ d V 


3s^ at^ 


0U 

sin (p ^ 1 3B ^ 1 0p 1 0(sin (p) 

_ 

cos ^ 1 1 0B 1 1 0p 1 1 

3s 

r B 0s p 0s cos <p 0t 

0t 

r B 0t p 0t cos <p 


X 


a (sin (p) 
as 


w 

, rBpre 

wWj, 1 r 


a(rV„) a(rVg) 

sin <p + cos (p 


as 


at 


+ + ? + F 


> = o 


(Al) 


where 



(A2) 


^ = u.2r-5i:: 

p” ar 


(A3) 


F = - W 

^ ar ae 


(A4) 


Equation (A4) was derived as equation (B23) of part I. 

The s- and t-coordinates are the coordinates along the orthogonal mesh generated 
by the program. At each point of this mesh where the value of the stream function is 
unknown, a finite -difference approximation to equation (Al) can be written. Adjacent to 
the boundary the boundary conditions are included. If there are n unknown values, n 
nonlinear equations are obtained in n unknowns. The equations are nonlinear since the 
coefficients involve the density, which depends on the solution; and since the final term 
depends on the solution in a nonlinear manner. The equations may be solved by an iter- 
ative procedure, with two levels of iteration. The inner iteration solves a linearized 
equation, and the outer iteration makes corrections to the linearized equation so that the 
solution converges to the solution of the original nonlinear equation. 

A typical mesh point with the numbering used to indicate neighboring mesh points is 
shown in figure 24. The value of the stream function or the other variables at 0 is de- 
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t 



Figure 24, - Notation for adjacent mesh points and mesh spaces. 


noted by using the subscript 0, and similarly for the neighboring points* It can be shown 
that equation (Al) can be approximated by 


2uj auj 

1 

to 

o 

1 

4. 

2Ug 2u^ 2uq 

hj(hj + hg) h2(hj + hg) 

hjh2_ 

r 



"4-^3 

sin <pQ 

hg + h^ 

^0 

^2 ■ “l 

COS (pQ 

hi +hg 

^0. 



’"Wp' 

^0 

L 


Bq \ hg + / pq \hg + h W cos <p^ 


ho + h. / cos 


/sin <p2 - sin <f>i\ 
hj + hg 




1 /sin (P^ - sin <pA 


hg + h4 


3(rVJ a(rV.) 

Sin <p — + cos <p 


dS 


at 


- ^0 " (^r)i= 0 (A5) 


where the partials of rVg are calculated by different methods upstream, downstream, 
and within the blade. Upstream and downstream of the blade, equations (B19) and (B20) 
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of part I are used. Within the blade, a finite -difference approximation is used with val- 
ues of Vq from the previous iteration. The final result to be used in equation (A 5) is 


£ 


3(rVj a(rV.) 

sin <p + cos 


ds 


at 




^O®OPo0^z)jj 


w \du/n 


Upstream 


sin 






hg +h4 


[d(rvi 




d(rv/ 

du 


downstream 


hj +hg 


In setting up the equations for solution, the coefficients of the 
must be calculated. This was done by expressing equation (A 5) as 

4 

“o =E Vi ♦ ■'o 

1=1 


(A6) 

within blade 


in equation (AS) 


(A 7) 
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Equation (A8) is written in the form corresponding to the calculation of the coef- 
ficients in subroutine COE F. The constant ICq is calculated from equation (A9) in sub- 
routine COE F. The quantities ^ and ^ are calculated in subroutine NEWRHO from 
equations (A 2), and (A3) . The quantity F^ is calculated in subroutine BIDVEL when the 
blade surface velocities are calculated. The quantities dX/du and d(rV^)/du are cal- 
culated by subroutines LAMDAF and RVTHTA when they are called by NEWRHO to cal- 
culate X or . 
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APPENDIX B 


MATCHING UPSTREAM AND DOWNSTREAM FLOW CONDITIONS . 
TO STREAM-FUNCTION SOLUTION 


The work done by each blade row is determined by the charge in whirl along stream 
lines. That is, 


H 


0 




(Bl) 


In this program, whirl can vary as desired from hub to tip, but for each streamline the 
work done is determined by equation (Bl). Also, the equation relating velocity W to 
temperature and density requires knowledge of upstream total temperature and whirl for 
that particular streamline. For this reason, it is most desirable to express upstream 
and downstream conditions as a function of stream function rather than radius. How- 
ever, if experimental data are being used, measurements are obtained as a function of 
position or radius. In this case the stream fimction is not known, but the distribution 
by radius can be used for input to the program. Then by estimation and iteration the 
correct distribution by stream function will be obtained. 

If whirl is given as a function of stream function as input (i.e. , LSFR = LAMVT = 0), 
no changes need be made after the first initialization. If tangential velocity is given 
as input (LAMVT = 1), certain subroutines must be reinitialized in every iteration. 

There are two possibilities: one, that Vg is given as a function of stream function 
(LSFR = 0), and the second that Vg is given as a function of radius (LSFR = 1). In 
either case, what is needed is the relation between stream function and radius along the 
input lines. This relation is determined by the stream-function solution obtained by 
SOR. In each iteration, then, reinitialization calls are made by NEWRHO, if 
LAMVT = 1 . If LSFR = 0, SFIN and SFOUT are given as input, and RADIN and RADOUT 
are corrected by the initilizati on calls to LAMNIT and RVTNIT. If LSFR = 1, RADIN 
and RADOUT are given as input, and SFIN and SFOUT are corrected by the same calls. 
In either case, SPLINT calls are made to readjust the spline fit coefficients for all five 
subroutines, LAMDAF, RVTHTA, TIPF, RHOIPF, and RHOOPF. 
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APPENDIX C 


CALCULATION OF PARTIAL DERIVATIVES OF THETA 
ON ORTHOGONAL MESH 

In the THETOM subroutine, d6/ds and 90/at are calculated at the orthogonal mesh 
points which lie between the leading and trailing edges of the blade. This process is 
executed in a series of intermediate steps because input points on the different blade 
planes are not required to fall on a smooth curve runnii^ from hub to shroud. Also, the 
angle (p is known only at mesh points, so that 90/9s and 90/9t cannot be obtained 
directly. Therefore, 30/9z and 90/3r are obtained as an intermediate step. It is 
more accurate to calculate partial derivatives first and then interpolate and transform 
the partials than it would be to interpolate 6 itself and then calculate the partials 
along mesh lines. 

The orth<^onal mesh on a typical blade is illustrated in figure 25. Notice that 



Figure 25. - Orthogonal finite-difference mesh on solution region. 


some of the t mesh lines cross the leading and trailii^ edges of the blade. To alle- 
viate the problem of finding 0-gradients on this mesh, they are first obtained on an. al- 
ternative mesh, shown in figure 26, of s’ - and t’ -coordinates which lie entirely within 
the blade. Then by interpolation they are obtained at the desired orthogonal mesh 
points. (Recall that z, r, and 6 are given as input on a number of blade sections 
from hub to shroud . ) 

The step-by-step procedure to obtain 30/9s and 90/9t is as follows: 

(1) Calculate z- and r-coordinates (ZPC and RPC) of the mesh points on the s'-t' 
mesh. The s' mesh lines lie along the input blade sections (ZBL,RBL points) . The 
t’ mesh lines run from hub to shroud at 10-percent meridional chord locations (fig- 26). 
Once z-coordinates are calculated along the input blade sections, SPLINT calls are 
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Figure 26i ' Alternate mesh on which gradients of 0 are obtained. 


made in the s’ -direction to obtain the corresponding r-cooordinates and angles of the 
s’ -coordinate line with respect to the z-axis Og,. (See 27.) 



Figure 27. ' Relation of s'-t’ mesh to z- and r-directjons. 


(2) Calculate arc length SZRBL along the itiput blade section (s’ -coordinate line) by 
using the input ZBL,RBL coordinates. 

(3) Calculate arc length SZRPC along the s’-coordinate line by using the calculated 
ZPC, RPC coordinates, 

(4) By using SPLINT calls in the s’ -direction, calculate 9 and 30/0S' at the 
Z PC, RPC points. 

(5) By usiig SPLINE calls along the t’ -coordinate line, calculate angles between 
the t' lines and the radial direction Oi.,. (See fig. 27 for sign of a^,.) 

(6) Calculate arc length SZRPC along the t’ -coordinate line by using the ZPC,RPC 
coordinates. 
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/ 

(7) By using SPLINE calls in the t' -direction, calculate 30/ 8V at the Z PC, RPC / 

points. 

(8) Calculate 36/dz and d6/3r from 36/38' and 36/3V at the s' -and 
t' -coordinate points, with the following equations: 


i£ = 

36 “f 

36 

sin Og, 

3z 

3s' COS(Qfg, + o^,) 

at' cos(ofg, + a^,) 

36_ 

3 Q sin Oj, 


cos 0!g, 

3t 

3s’ cos(o!gt + or^,) 

3t‘ cos(ttg, + a^,) 


(Cl) 


(C2) 


(The 36 /3z and 36 /3r gradients are the ones vdiich will be interpolated back to the 
orthogonal mesh and then transformed to get 36 /3s and 36 /3t.) 

(9) Interpolate, by usii^ LININT calls, from 36 /3z and 3fl/9r on the s*-t' mesh 
to obtain 36/3z and 36/dr at the s-t points of the orthogonal mesh which lie between 
the leading and trailing edges of the blade. 

(10) Rotate the r- and z -coordinate lines throt^h the angle <p to obtain 36/38 and 
36/3t at the orthogonal mesh points within the blade (see fig. 28). The following equa- 
tions are used : 


3s 


36 36 . 

= — cos (f> + — sin 

3z 3r 


<P 


(C3) 


ii 

3t 


U V U U m 

— cos <jp - — sin tp 
0r 9z 


(C4l 



Figure 28. - Relation of z- and r-directions to s- and t- 
dlrections. 
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APPENDIX D 


LINEAR INTERPOLATION IN A QUADRILATERAL 

There are several instances where it is required for the prc^ram to interpolate 
from a two-dimensional array of values on a grid. If the grid were rectangular, this 
would be straightforward. However, usually this is not the case. In most cases the 
grid is a rectangular grid which is deformed like a net that has stretched out of shape 
Thus, each region has four sides, but the corners are not necessarily right angles. 
The method of interpolation is the simplest possible. First, we find tiie particular 
qviadrilateral containing the point, as shown in figure 29. All that is necessary is to 



interpolate linearly within the quadrilateral. The interpolation is linear in the sense 
that it is linear along the boundary and between corresponding points aloi^ the boundary. 

An illustration should clarify the manner of interpolation. Suppose it is desired to 
find the value at point P in figure 30. It is assumed that values of the function are 
known at the corner points A, B, C, and D. The function values at these points will be 
designated F^, Fg, F^, and Fg. Suppose that the point P lies on a line between 
points three-quarters of the way along AB and CD, as shown. Also suppose that P 
lies on a line between points two -thirds of the way along BD and AC, as shown. Then, 
we can interpolate linearly along AB and CD, followed by linear interpolation along the 
vertical line through P . If F is the interpolated value of P , we obtain 



+ i F„ + i Fp + i Fj. 

4 B 6 C 2 
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/ 

/ 


The same result is obtained if we interpolate linearly along BD and AC, followed by 
linear interpolation along the horizontal line through P. 

Figure 31 shows a quadrilateral containing a point Pq where it is desired to inter 



polate . It is assumed that the values of the function to be interpolated are known at the 
four corners, and that the coordinates of the point Pq are given. The function values 
are denoted by z, and the coordinates by x and y. Subscripts are used to indicate the 
point. There are 14 values required to perform the interpolation: the coordinates of 
the four corners (eight values), the coordinates of the interpolation point (two values), 
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and the function values at the four corners. If it is assumed that these 14 values are 
known, an equation for linear interpolation can be derived. 

Figure 32 shows the same quadilateral as figure 31 but with the added lines P5P0 
and P,yPg. The line PgPg passes through the point Pq and is chosen so that 
PjPg : PjPg = P2Pg : P2P4- Similarly, P^Pg passes through Pg and 
PlP, : PjPg = PgPg : P3P4. Now, let 



Figure 32. - Typical quadrilateral with 
interpolation lines. 


The coordinates of any point IP^ will be designated by (x.,yp. The difference of any 
two X or y values will be designated by x.. = Xj-x. or yjj=yi”yj- Thus, 


, _ ^51 _ ^51 _^62 _ ^62 
> *31 Jai . *42 !!42 


(D3) 
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The equation of line P 5 P 0 is 


LUlJjl 

^ " *5 ^65 


(I>4) 


By using equation (D3), y^, y^, Xg, and Xg can be expressed in terms of fy and the 
known values. For example, 


^5 = yi ^51 = 

In a similar manner we obtain 

^5 = ' 

5'6'>'2*V42 


==5 = • Vl3 


*6 ° *2 * * y ’‘42 j 


By substituting equations 05) in 04), we obtain 


(D5) 


y - ^1 * V13 , i'2 ^7^42 - Vl3 (P5, 

x-Xi+yi3 *2 * *y’'42 - *1 Vl3 

This line passes through Pq, so when x = Xg, y = yQ- When this substitution is 
made and we multiply throv^h by the denominators, we obtain a quadratic in fy, 

af^ + bfy + c = 0 07) 


where 


^ '^ 13*42 "* 13^42 1 


^ ^ *13^02 " ^13*02 * ^01* 42 " ^01^42 




08) 


^ - ^ 01*21 " * 01^21 
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In a similar manner, we can obtain a quadratic in 


af ‘ + bf^ + c = 0 


(D9) 


where 


a = 


y 12^43 “*12^43 


'’='*12^03 12*03 ■^^01*43 "*01^43 f 


° - ^01*31 " *01^31 


(DIO) 


If a. ^ 0 in equation (D7) or (D9), there are two solutions for fj^ or fy. However, 

there will be only one value between zero and one. When two sides are parallel, a will 

be zero and only one solution exists. Caution is needed when a is not zero but is very 

small. In this case there is one and only one solution between zero and one; but if the 

usual quadratic formula is used, the answer will be inaccurate. The solution, however, 

can be accurately calculated by using a binomial expansion. 

If we let f represent either f or f , the solution to either (D7) or (D9) can be 

X y 

written as 



(Dll) 


When a is zero or small in magnitude, we want the root Uiat is closest to zero. This 
is obtained by choosing the minus sign for the last term. Now we expand 


( 


1 4ac \^^^ 

'bV 


by the binomial series, to obtain 



(D12) 
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for |4ac | < b^. Substituting equation (D12) in equation (Dll) with the minus sign gives 



( ' « 2 2 e 3 3 

l + ^+2a_c_^ 5a_c_^ 

^ b^ b^ b® 


(D13> 


Equation (D13) is used when acA>^ is small. Otherwise, the usual quadratic formula is 
used. In the program (i.e. , in subroutine LININT, and also in subroutine CONTIN), 
equation (D13) is used whenever [4ac | s b^/100. Only three terms of the series are 
used; the term 5a^c^/b® is dropped. This leads to a maximum relative error of less 
than 10“'^. When [4ac j > b^/100, the quadratic formula will lose no more than two or 
three decimal places in accuracy. 

There is one further point that must be considered. Up to this point, it has been as- 
sumed that the interpolation point is within the overall grid area, and thus we only need 
to interpolate within a quadrilateral. However, there are cases where extrapolation is 
necessary. In this case, the nearest quadrilateral is identified, and extrapolation is 
used. The procedure is similar, but one of the f’s must be either negative or greater 
than 1. The problem, then, is to determine which f to use. Since the direction of the 
extrapolation is known, it is known whether f is negative or greater than 1. For exam- 
ple, suppose it was necessary to extrapolate below the bottom of the grid area. Then 
f must be negative. If only one of the two possible values is negative, the question is 
settled. If both are negative, the larger value (closest to zero) is used. 

After both f^^ and f^ are obtained, the linear interpolation can be performed to 
obtain Zq. Linear interpolation along PjP2 is followed by linear interpo- 
lation along These interpolations are calculated by 

Z,j+ fy(zg - z^) 

Combining these equations, we get 

^0 “ - y - V' ^ ■ V * • V'y * Wy 
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APPENDIX E 


SYMBOLS 

B tangential space between blades, corrected for loss of total pressure, rad 

c specific heat at constant pressure, J/(kg)(K) 

P - 

P vector nornoal to noid-channel stream surface and proportional to tai^entlal 

pressure gradient, N/kg 

H absolute total enthalpy, JAs 

2 2 

I rothalpy, c TJ - wx, meters /sec 

m meridional streamline distance, meters 

2 

P pressure, N/meter 

R gas constant, J/(kg)(K) 

r radius from axis of rotation, meters 

r radius of curvature of meridional streamline, meters 

s distance along orthogonal mesh lines in throughflow direction (fig. 25), meters 

T tempera tvire, K 

t distance along orthogonal mesh lines in direction across flow ^ig. 25), meters 

u normalized stream function 

V absolute fluid velocity, meters/sec 

W fluid velocity relative to blade , meters/sec 

at next point, meters/sec 

first estimate of meters/sec 

W.^j second estimate of meters/sec 

w mass flow, kg/sec 

z axial coordinate, meters 

a angle between meridional streamline and axis of rotation (fig- 2, part I), rad 

)3 angle between relative velocity vector and meridional plane 2, part I), 

rad 

Y specific -heat ratio 

C coefficient in stream-function equation, defined in eq. (A3), meters/sec^ 

0 . relative angular coordinate (fig- 2, part I), rad 
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X prerotation, (rV^) , metersVsec 

^ coefficient in stream -function equation, defined in eq. (A 2), 1 /meter 

Q 

p density, kg/meter 

(p angle between s-coordinate line and axis of rotation ^ig. 25), rad 

Si overrelaxation factor 

0 ) rotational speed (fig. 2, part l), rad/sec 

Subscripts: 

av average blade-to-blade value 

b blade 

bf blade flow 

cr critical 

fs free stream 

hub hub 

i inlet 

I blade surface facing direction of positive rotation 

le leading edge 

m component in direction of meridional streamline 

net net 

o outlet 

r component in radial direction 

s component in s-direction 

t component in t-direction 

te trailing edge 

tip tip 

tr blade surface facii^ direction of negative rotation 

z component in axial direction 

6 component in tangential direction 

Superscripts: 

' absolute stagnation condition 

" relative stagnation condition 
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